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CZRPYD.P11 


1. 


ABSTRACT 


THE RP11E FUNCTIONAL LOGIC & READ/WRITE TEST PERFORMS A CURSORY CHECK 
OF THE RP11E CONTROLLER LOGIC AND PERFORMS DATA STORAGE/RETRIEVAL 
TESTING OF THE SUBSYSTEM. INCLUDED IN THE PROGRAM ARE UTILITY 

TESTS WHICH ASSIST IN PERFORMING HEAD ALIGNMENT, WHICH CHECK 
SUBSYSTEM POWER FAIL OPERATION, AND WHICH CHECK THE RP11E AND 

DRIVE CONTROL SWITCHES. 


THE PROGRAM CONTAINS A ‘CONVERSATION MODE’ WHICH ALLOWS THE OPERATOR 
TO MODIFY THE OPERATION PARAMETERS FOR THE DATA STORAGE/RETREIVAL 
TEST. THE PROGRAM WILL USE MEMORY MANAGEMENT IN THE OPERATION 

OF Lin DATA TEST IF THE PROGRAM IS BEING RUN ON A MEMORY MANAGEMENT 
SYSTEM. 


THIS PROGRAM COMPLETES THE TESTING STARTED IN THE DISKLESS CONTROLLER 
TEST (MD-11-DZRPW). TESTING IN THE FUNCTIONAL LOGIC PROGRAM IS 
PERFORMED WITH 1 - 8 RPO2, RPROZ2, OR RPOS DISK DRIVES. 


REQUIREMENTS 


EQUIPMENT 


PDP-11 COMPUTER WITH 12K OF MEMORY; CONSOLE TELETYPE; RP11E DISK 
CONTROLLER; 1 TO 8 RPO2, RPRO2, OR RPO3 DISK DRIVES WITH FORMATTED 
PACKS. 

STORAGE 

THIS PROGRAM WILL LOAD AND RUN IN 12K. 

PRELIMINARY PROGRAMS 


MAINDEC-11-DZRPW - RP11E DISKLESS LOGIC TEST 


STARTING PROCEDURES 


LOADING PROCEDURES 


THE PROGRAM MAY BE LOADED FROM EITHER PAPER TAPE OR AN ‘XXDP' 
DEVICE. REFER TO EITHER THE STANDARD PROCEDURES FOR LOADING ‘ABS' 
FORMAT PAPER TAPES OR TO THE ‘XXDP' SYSTEM REFERENCE DOCUMENT. 


THIS PROGRAM MAY BE INCLUDED IN AN 'XXDP* CHAIN. IF THE PROGRAM 
IS PART OF A CHAIN AND IS LOADED FROM AN RPO2, RPRO2, OR AN RPO3, 
THE PROGRAM WILL NOT USE DRIVE 0 FOR TESTING. 


SEQ 0003 
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3.2 STARTING ADDRESSES 


200 NORMAL STARTING ADDRESS 
SELECT OPERATING PARAMETERS 
SELECT RP11 ADDRESS 
COMBINATION OF 204 AND 210 


START FROM LOCATION 200 


WHEN THE PROGRAM IS STARTED FROM LOCATION 200, ALL ONLINE DRIVES WILL 
BE USED (SEE SECTION 3.1 FOR DRIVE 0 EXCEPTION) USING TESTS 0 = 14. 
ALL PARAMETERS FOR TEST 14 WILL BE R© TURNED TO THEIR DEFAULT VALUES. 


START FROM LOCATION 204 


WHEN THE PROGRAM IS STARTED FROM LOCATION 204, PRAMETERS FOR TEST 14 
Rang 3 TO THEIR DEFAULT VALUES, AND THE PROGRAM ENTERS CONVERSATIONAL 


START FROM LOCATION 210 


WHEN THE PROGRAM IS STARTED FROM LOCATION 210, OPERATION IS THE 
SAME AS THE START FROM 200, EXCEPT THAT THE PROGRAM ASKS FOR AN 
RP11E ADDRESS. THE OPERATOR MAY ENTER A NEW ADDRESS VALUE OR HE 
MAY RETAIN THE CURRENT VALUE. THE PARAMETERS FOR TEST 14 ARE RESET 
TO THEIR DEFAULT VALUES. 


START FROM LOCATION 214 


PROGRAM START FROM LOCATION 214 IS THE SAME AS THE START FROM LOCATION 
204 EXCEPT THAT THE PROGRAM ASKS FOR A NEW RP11E ADDRESS. THE 
PARAMETERS FOR TEST 14 ARE RESET TO THEIR DEFAULT VALUES. 


OPERATOR ACTION 
***BEFOR STARTING REFER TO SECTION 4,1*** 


LOAD PROGRAM INTO MEMORY (SEE SECTION 3.1) 

CHANGE TELETYPE KEYBOARD AND PRINTER ADDRESSES AS REQUIRED 
(SEE SECTION 4.2) 

PLACE A FORMATTED PACK ON DRIVE(S) TO BE USED 

BRING DRIVE(S) TO ONLINE STATE. 

PLACE ‘FORMAT’ AND ‘MAINTENANCE’ SWITCHES ON THE RP11E 
CONTROL PANEL TO ‘NORMAL' 

SET CONTROLLER AND DRIVE Ba LOCKOUT SWITCHES AS REQUIRED 
LOAD ADDRESS 200, 204, OR 214. 

SET CPU SWITCH REGISTER SUI TEHES (SEE SECTION 4.1) 

PRESS START ON THE CPU CONTROL PANEL 


"CONTROL C’ OPTION 


THE OPERATOR MAY TERMINATE THE CURRENT TEST AT ANY TIME BY TYPING A 
"CONTROL C* ON THE TELETYPE KEYBOARD. TYPING A ‘CONTROL C* CAUSES 
THE PROGRAM TO ENTER THE ‘CONVERSATION MODE’ ROUTINE. ALL THE 
PARAMETERS FOR TEST 14 WILL BE RETURNED TO THEIR DEFAULT VALUES. 


OCONA USFW Ww 
. 6 eee ee 
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3.5 DEFAULT RP11E UNIBUS ADDRESS 


THE DEFAULT RP11E UNIBUS ADDRESS IS 176710. WHEN THE PROGRAM IS 
STARTED FROM EITHER LOCATION 200 OR LOCATION 204, ADDRESS 176710 
WILL BE CHECKED AND IF NO RESPONSE IS RECEIVED FROM THAT ADDRESS 
THE PROGRAM WILL ENTER THE RP11E ADDRESS CHANGE ROUTINE. 

ADDRESS CHANGE OPERATION WILL BE IDENTICAL TO THE OPERATION WHEN 
THE PROGRAM IS STARTED FROM EITHER LOCATION 210 OR 214. (REFER 
TO SECTION 4.4) 


OPERATING PROCEDURES 


IF THE DIAGNOSTIC IS RUN ON A CPU WITHOUT A SWITCH 

REGISTER THEN A SOFTWARE SWITCH REGISTER IS USED WHICH ALLOWS 

THE USER THE SAME SWITCH OPTIONS AS THE HARDWARE SWITCH REGISTER. 
IF THE HARDWARE SWITCH REGISTER DOES NOT EXIST OR IF ONE DOES 
AND IT CONTAINS ALL ONES (177777) THEN THE SOFTWARE SWITCH 
REGISTER (LOC. 176) IS USED. 


CONTROL: 


THIS PROGRAM ALSO SUPPORTS THE DYNAMIC LOADING OF THE SOFTWARE SWITCH 
REGISTER (LOC. 176) FROM THE TTY. THIS CAN BE ACCOMPLISHED BY 
DOING THE FOLLOWING: 


1) TYPE CONTROL G < G>; THIS WILL ALLOW THE TTY TO ENTER DATA INTO 
LOC. 176 AT SELECTED POINTS WITHIN THE PROGRAM. 


2) THE MACHINE WILL THEN TYPE: SWR=XXXXXXNEW= (XXXXXX IS THE OCTAL CONTENTS 
OF THE SOFTWARE SWITCH REGISTER.) 


3) AFTER THE *"NEW="" HAS BEEN TYPED THEN THE OPERATOR CAN DO ONE 
OF THE FOLLOWING AT THE TTY: 


A) TYPE A NUMBER TO BE LOADED INTO LOC. 176 FOLLOWED BY A <CR>. 
(ONLY NUMBERS BETWEEN 0-7 WILL BE ACCEPTED AND ONLY 6 NUMBERS 
WILL BE ALLOWED) 

IF A <CR> IS THE FIRST KEY DEPRESSED THE SOFTWARE SWITCH 
REGISTER CONTENTS WILL NOT BE CHANGED. 


B) IF A CONTROL U < U> IS DEPRESSED THEN THE PROGRAM WILL SEND YOU 
BACK TO STEP 2. 


OPERATIONAL SWITCH SETTINGS 


WITH SW<15:0>=1, THE PROGRAM WILL TYPEOUT ERRORS AND CONTINUE 
WITH THE TEST. 
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THE SWITCH SETTINGS ARE: 


SW<15>=1...HALT ON ERROR 

SW<14>=1...LOOP ON TEST 

SW<13>=1... INHIBIT ERROR TYPEOUTS 

SW<11>=1... INHIBIT ITERATIONS 

SW<10>=1...RING BELL ON ERROR 

SW<09>=1...LOOP ON ERROR 

SW<07>=1...DON'T TYPE DRIVE STATUS WHEN PROGRAM STARTED OR WHEN 

ENTERING CONVERSATION MODE. 

CHANGE HEAD SELECTION IN TEST 16. 
SW<06>=1...DON'T USE MEMORY MANAGEMENT IN TEST 14 
SW<05>=1...DISPLAY ALL READ RETRY ATTEMPTS IN TEST 14 
SW<04>=1...TYPE ALL DATA COMPARE ERRORS IN TESTS 13 & 14 
SW<03>=1... INHIBIT DATA COMPARE IN TESTS 13 & 14 
SW<02>=1...BYPASS READ & DATA COMPARE IN TEST 14 
SW<01>=1...BYPASS WRITE CHECK IN TEST 14 
SW<00>=1...BYPASS WRITE IN TEST 14 


TELETYPE KEYBOARD AND PRINTER UNIBUS ADDRESSES 


THE PROGRAM ASSUMES THE FOLLOWING UNIBUS ADDRESSES. THESE ADDRESSES 
ww I cream AT THE INDICATED LOCATION BEFORE STARTING THE 
OGRAM. 


MEMORY 
LOCATION CONTENTS FUNCTION 


177560 TTY KEYBOARD STATUS REG 
177562 TTY KEYBOARD BUFFER REG 
177564 TTY PRINTER STATUS REGISTER 
177566 TTY PRINTER BUFFER REG 


(THE RP11E UNIBUS ADDRESS IS CHANGED IN RESPONSE TO THE PROGRAM'S 
TYPED REQUEST IF THE PROGRAM IS STARTED FROM EITHER LOCATION 210 OR 
214 OR IF THE THERE IS NO RESPONSE WHEN LOCATION 176710 IS ADDRESSED.) 
TTY KEYBOARD ENTRY CONTROL CODES AND CONVENTIONS 

THE FOLLOWING CONTROL CODES AND CONVENTIONS ARE USED BY THE PROGRAM: 


got RETURN (CR) - ALL ENTRIES MUST BE TERMINATED BY A CARRIAGE 


CONTROL U ( U) = IF THIS CONTROL CODE IS TYPED BEFORE AN ENTRY IS 
TERMINATED, THE ENTRY IS CLEARED AND ANOTHER VALUE MAY BE ENTERED. 
A U IS TYPED BY PRESSING THE ‘CONTROL’ AND ‘U' KEYS TOGETHER. 
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SEQ 0007 


RUBOUT (RO) = IF THIS CONTROL CODE IS TYPED, THE CHARACTER TYPED 
BEFORE THE ‘RO* WILL BE DELETED FROM THE ENTRY. EACH TIME 
A ‘RO’ IS TYPED, THE LAST CHARACTER IN THE INPUT ENTRY IS DELETED. 
WHEN A ‘RO* IS TYPED, THE ENTRY ROUTINE WILL TYPE A BACKSLASH 
(* *) CHARACTER AND THE CHARACTER BEING DELETED. WHEN A CHARACTER 
OTHER THAN A ‘RO’ IS TYPED, THE ENTRY ROUTINE WILL TYPE ANOTHER 
BACKSLASH CHARACTER AND TYPE THE NEW CHARACTER ENTERED. THE ‘RO' 
CANNOT BE USED TO DELETE A ‘CR’. 


CONTROL C ( C) = THE OPERATION OF THE * C° CHARACTER IS DESCRIBED 
IN SECTION 3.4. ° C* MAY ALSO BE USED TO ABORT THE CONVERSATION 
MODE AND TO RETURN TO THE BEGINNING OF CONVERSATION MODE. 

* CC" IS GENERATED BY PRESSING THE ‘CONTROL’ KEY AND THE 'C* KEY. 


IF ONLY A *CR' IS ENTERED IN RESPONSE TO AN ENTRY REQUEST FROM THE 
Aa +a THE PROGRAM WILL USE THE DEFAULT VALUE FOR THE REQUESTED 
NTRY. 


LEADING ZEROS ARE NOT REQUIRED ON ANY ENTRY. 
RP11E UNIBUS ADDRESS CHANGE ROUTINE 


WHEN THE PROGRAM IS STARTED FROM LOCATION 200 OR LOCATION 204, THE 
PROGRAM WILL ASSUME THAT THE RP11E IS AT UNIBUS ADDRESS 176710. 
WHEN THE PROGRAM IS STARTED FROM EITHER LOCATION 210 OR LOCATION 
214, THE PROGRAM ENTERS A ROUTINE WHICH ALLOWS THE OPERATOR TO 
CHANGE THE RP11E UNIBUS ADDRESS TO BE USED BY THE PROGRAM. 


WHEN THE ADDRESS CHANGE ROUTINE IS ENTERED, THE PROGRAM TYPES THE 
PRESENT RP11E UNIBUS ADDRESS: 


RPADR = AAAAAA/ 
NOTE: *AAAAAA' REPRESENTS THE PRESENT ADDRESS 


THE ADDRESS TYPED OUT MAY BE USED BY TYPING A 'CR* ONLY. A NEW 
ADDRESS IS ENTERED BY TYPING THE NEW ADDRESS AND TERMINATING THE 
ENTRY WITH A ‘"CR*. (THE NEW ADDRESS WILL BE USED UNTIL ANOTHER 
ADDRESS IS ENTERED.) 


AFTER THE OPERATOR HAS RESPONDED TO THE ADDRESS ENTRY REQUEST, THE 
PROGRAM WILL VERIFY THAT THE RP11E ADDRESS RESPONDS. IF NO RESPONSE 
4 a FROM THE RP11E ADDRESS, THE FOLLOWING ERROR MESSAGE 


RP11E DIDN'T RESPOND TO ADDRESSING 
RPADR 
AAAAA 
THE PROGRAM RETURNS TO THE ADDRESS ENTRY ROUTINE. THE PROGRAM 


WILL NOT CONTINUE UNTIL THE OPERATOR ENTERS AN ADDRESS FOR WHICH 
THERE IS A UNIBUS RESPONSE. 
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4.5 


CONVERSATION MODE 


THE PROGRAM CONTAINS A ‘CONVERSATION MODE’ ROUTINE WHICH ALLOWS THE 
OPERATOR TO SELECT AND EXECUTE INDIVIDUAL TESTS AND TO SPECIFY 

THE DRIVE TO BE USED. THE CONVERSATION MODE ALSO ALLOWS THE OPERATOR 
mt anes is PARAMETERS OF THE ‘DATA STORAGE/RETRIEVAL 


a. ie an PROGRAM ENTERS CONVERSATION MODE, THE FOLLOWING MESSAGE 


ENTER TEST #: 


A ‘CR* MAY BE ENTERED OR A VALID TEST NUMBER (E.G., 0 - 17) MAY BE 
ENTERED. THE DEFAULT ENTRY (‘CR') WILL CAUSE THE PROGRAM TO SELECT 
TESTS 0 = 14. IF A SINGLE TEST NUMBER IS ENTERED, ONLY THAT TEST 
WILL BE EXECUTED. 


THE PROGRAM WILL THEN ASK FOR A DRIVE ASSIGNMENT. 
ENTER DRIVE #: 


A *CR' ENTRY WILL CAUSE THE PROGRAM TO SELECT ALL ONLINE DRIVES FOR 

TESTING. IF A VALID DRIVE NUMBER IS ENTERED (0 - 7), THE PROGRAM 

WILL CHECK THE STATE OF THE DRIVE: IF THE DRIVE IS NOT ONLINE, THE 

a ee WILL BE TYPED AND THE PROGRAM WILL ASK FOR ANOTHER 
v. 


IF TEST 15, 16, OR 17 IS SELECTED, A ‘CR* RESPONSE TO THE DRIVE 
NUMBER REQUEST WILL NOT BE ACCEPTED; A SPECIFIC DRIVE NUMBER MUST BE 
ENTERED FOR TEST 15, 16, OR 17. 


IF TESTS 0 - 13, 15, 16 OR 17 HAVE BEEN SELECTED, OR IF THE ENTIRE 
TEST SEQUENCE WERE SPECIFIED, THE PROGRAM WILL BEGIN EXECUTING THE 
THE TEST OR SEQUENCE IMMEDIATELY. IF TEST 14 IS SPECIFIED, THE 
PROGRAM WILL ASK IF THE OPERATOR WANTS TO CHANGE PARAMETERS FOR 
TEST 14. THE FOLLOWING MESSAGE IS TYPED. 


CHANGE PARAMETERS FOR TEST 14 ? 
EITHER A ‘CR’ OR A ‘Y* MAY BE ENTERED. IF A ‘CR’ IS ENTERED, THE PROGRAM 
WILL BYPASS THE TEST 14 PARAMETER ENTRY ROUTINE AND START TEST 14 
IF A 'Y' IS ENTERED, THE PROGRAM STARTS THE TEST 14 PARAMETER CHANGE 
DIALOG. 
THE PROGRAM WILL THEN TYPE THE WORD LENGTH FOR ALL TEST 14 TRANSFERS. 
MAXIMUM WORD COUNT FOR TEST 14 (IN OCTAL): SSSSSS 


NOTE: ‘SSSSSS* = THE OCTAL VALUE OF THE WORD COUNT 


SEQ 0008 
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THE PROGRAM WILL THEN ASK FOR A NEW WORD COUNT. 
ENTER NEW WORD COUNT: 


EITHER A VALUE (LESS THAN THE MAXIMUM TYPED ABOVE) OR A ‘CR' 

MAY BE ENTERED. IF A VALUE IS ENTERED, THE NEW VALUE WILL BE USED 
FOR ALL DATA TRANSFER OPERATIONS IN TEST 14. WHEN THE PROGRAM IS 
RESTARTED OR A ‘CONTROL C’ IS TYPED, THE WORD COUNT VALUE WILL BE 
RETURNED TO THE SYSTEM DEFAULT VALUE. IF A ‘CR’ IS TYPED, THE 
PROGRAM WILL USE THE DEFAULT WORD COUNT VALUE. 


THE PROGRAM WILL THEN ASK FOR A PATTERN SELECTION WORD ENTRY. 
ENTER PATTERN SELECTION CODE FOR TEST 14: 


ENTER THE OCTAL VALUE OF THE PATTERN SELECTION WORD OR A ‘CR' FOR 

THE DEFAULT VALUE. REFER TO SECTION 7.9 FOR A DESCRIPTION OF 

THE PATTERN SELECTION WORD AND ITS USE IN TEST 14. IF TESTING IS TO 

BE AT A SPECIFIC DISK LOCATION, ENTER THE CODE FOR A SINGLE PATTERN. 

(IF TESTING IS AT A SPECIFIC ADDRESS, THE PROGRAM WILL NOT ROTATE THE 
DATA PATTERNS BUT WILL USE THE LOWEST NUMBERED PATTERN SPECIFIED 

BY THE PATTERN SELECT WORD.) 


THE PROGRAM WILL ASK IF THE OPERATOR WANTS TO TEST AT A SPECIFIC 
DISK ADDRESS. 


USE A SPECIFIC DISK ADDRESS FOR TEST 14 ? 


ENTER EITHER A 'CR' OR A ‘Y'. IF A ‘Y* IS ENTERED, THE PROGRAM 
WILL TYPE THE FOLLOWING REMINDER MESSAGE ABOUT DATA PATTERN USAGE. 


(A SINGLE DATA PATTERN MUST HAVE BEEN SPECIFIED 
IF NOT, PATTERN O (ALL ZEROS) WILL BE USED) 


THE PROGRAM WILL ASK FOR CYLINDER, TRACK, AND SECTOR ADDRESSES. 

AN ADDRESS MUST BE ENTERED, THE PROGRAM WILL NOT ACCEPT DEFAULT 

ptt Bp THESE ADDRESSES. THE ENTRY REQUESTS FOR THE ADDRESSES ARE 
N BELOW. 


ENTER CYLINDER ADDRESS: 

ENTER TRACK ADDRESS: 

ENTER SECTOR ADDRESS: 
IF A SPECIFIC ADDRESS IS ENTERED FOR TESTING, TESTING WILL TAKE 
PLACE ONLY AT THAT ADDRESS WITH THE WORD COUNT AND PATTERN ENTERED 
ABOVE. THE TEST WILL MAKE ONE PASS AND GO TO END OF TEST. SwW<14> 
SHOULD BE SET TO INHIBIT THE END OF TEST MESSAGE TYPEOUT. 


TO TERMINATE THE TEST OR SEQUENCE, EITHER TYPE A ‘CONTROL C' OR HALT 
THE PROCESSOR AND RESTART AT THE APPROPRIATE STARTING ADDRESS. 
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4.6 


SEQ 0010 
OPERATION OF TESTS 15, 16, & 17 


TEST 15 AND TEST 17 CONTAIN IMBEDDED OPERATING INSTRUCTIONS. SETUP 
AND OPERATING INSTRUCTIONS ARE TYPED OUT AS THE TEST PROCEEDS. 


TO OPERATE TEST 16, ‘HEAD ALIGNMENT ROUTINE’, REFER TO THE APPLICABLE 
MAINTENANCE MANUALS FOR THE DRIVE SETUP PROCEDURES. THE PROGRAM 
WILL TYPEOUT THE CONTROLLER SETUP PROCEDURES. TO CHANGE HEAD 
SELECTION, SW<07> MUST BE TOGGLED (TURNED ON, THEN OFF). 


TO SETUP THE RP11E FOR HEAD ALIGNMENT, CONNECT A JUMPER BETWEEN 
PINS J13M2 AND J13C2 ON THE BACKPLANE. 


ERROR HANDLING 


ERROR REPORTING 


WHEN THE PROGRAM DETECTS AN ERROR, THE ERROR ROUTINE IS CALLED; 
IF SW<13> IS NOT SET, THE ERROR MESSAGE FOR THAT ERROR WILL BE TYPED. 
EACH ERROR TYPEOUT CONTAINS THE FOLLOWING: 


A. AN ERROR MESSAGE 
B. A DATA HEADER LINE 
C. A DATA LINE CONTAINING 
1. THE TEST NUMBER 
2. THE ADDRESS (PROGRAM COUNTER CONTENTS) WHERE THE ERROR 
CALL WAS MADE 
3. CONTENTS OF THE APPROPRIATE REGISTERS 
4. OTHER SPECIFIC DATA 


ERROR TYPES 
papers DETECTED ARE DIVIDED INTO 2 CATEGORIES: FATAL AND NON- 

- 
FATAL ERRORS ARE DRIVE UNSAFE ERRORS WHICH OCCUR ON THE DRIVE BEING 
USED FOR TESTING OR DRIVES WHICH GO OFFLINE DURING TESTING. IF EITHER 
OF THESE TWO CONDITIONS OCCUR, THE PROGRAM WILL TERMINATE TESTING 
USING THE DRIVE WHICH GAVE THE FATAL ERROR. 


ALL OTHER ERROR TYPES ARE NON-FATAL, E.G., TESTING CONTINUES AFTER 
TRE ERROR IS REPORTED. 
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6. RESTRICTIONS 


6.1 SUBSYSTEMS WITH MIXED DRIVE TYPES 


THE PROGRAM ASSUMES THAT ONLY ONE KIND OF DRIVE IS ATTACHED TO 

A SYSTEM (E.G. RPO2'S & RPROZ2'*S OR RPO3'S). IF BOTH RPO2'S 

(AND RPRO2"S) OR RPO3'S ARE ON THE SAME SYSTEM, THE PROGRAM WILL 
ASSUME THAT ALL OF THE DRIVES ARE RPO3'S. TO TEST DRIVES ON A 
MIXED SYSTEM, TEST ALL OF THE SAME KIND OF DRIVE AT ONE TIME. THE 
OTHER DRIVES ON THE CONTROLLER MUST BE POWERED DOWN. 


FORMATTED PACKS 

EACH OF THE DRIVES BEING USED MUST HAVE A FORMATTED DISK PACK. 
"CONTROL C‘ TERMINATION DURING TESTS 5 & 13 

IF TESTS 5 OR 13 ARE TERMINATED WITH A ‘CONTROL C*, CYLINDER 

0, TRACK 0, SECTOR 0 MAY BE LEFT WITH EITHER AN INVALID HEADER OR 

AN INVALID DATA FIELD. IF TEST 5 IS STOPPED, THE HEADER FOR SECTOR 0 
MAY STILL BE MISFORMATTED; IF TEST 13 IS STOPPED, SECTOR O MAY BE 
STILL RECORDED IN 10/15 MODE. 

CONTROLLER INTERRUPT 


THE PROGRAM DOES NOT USE CONTROLLER INTERRUPT. THE PROGRAM WAITS FOR 


THE CONTROLLER ‘READY* OR DRIVE ‘READY’ BITS TO SET TO INDICATE 
ORDER TERMINATION. 





O° 


a 1 
CZRPY-D, RPII-E ta ye a & R/w TEST MACY11 30A(1052) 22-APR-78 14:43 PAGE 13 


CZRPYD.P11 22-APR-78 1 


7. 


7.1 


MISCELLANEOUS 


RUN TIME 


TO MAKE ONE PASS OF THE PROGRAM (TESTS 0 - 14) TAKES APPROXIMATELY 
20 MINUTES FOR EACH RPO2 OR RPRO2 USED AND APPROXIMATELY 40 MINUTES 
FOR EACH RPO3S USED. 


STACK POINTER 
STACK IS INITIALLY SET TO 1100 AND EXTENDS DOWNWARD IN MEMORY. 
END OF PASS/END OF TEST 


THE PROGRAM WILL PERFORM ONE PASS FOR EACH DRIVE BEING USED FOR 
TESTING. END OF TEST WILL OCCUR WHEN EACH DRIVE BEING USED FOR 
TESTING HAS HAD ONE PASS. 


SUBROUTINE CALLS 
THE SUBROUTINE CALLS USED BY THE PROGRAM ARE: 


A. ‘SCOPE’ (IOT INSTRUCTION). THIS CALL IS PLACED BETWEEN EACH 
TEST IN THE PROGRAM. THIS ROUTINE ESTABLISHES THE TEST ITERATION 
COUNT AND LOOP ON TEST AND LOOP ON ERROR ADDRESSES. 


"ERROR® (EMT INSTRUCTION). THIS CALL IS USED TO REPORT ALL 
ERRORS. A CALL TO THIS ROUTINE IS FOLLOWED BY A NUMBER WHICH 
IDENTIFIES THE ERROR MESSAGE WHICH WILL BE TYPED. 


THE TRAP INSTRUCTION IS USED FOR THE FOLLOWING SUBROUTINE CALLS: 


TYPE = TTY TYPEOUT ROUTINE 

TYPOC = TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
TYPOS = TYPE OCTAL NUMBER (NO LEADING ZEROS) 
TYPDS - TYPE DECIMAL NUMBER 

RDCHR = READ A CHARACTER FROM THE TTY KEYBOARD 
RDLIN = READ A LINE FROM THE TTY KEYBOARD 
SAVREG - ROUTINE TO SAVE RO - R5 

RESREG - ROUTINE TO RESTORE RO - R5 


SEQ 0012 





CZRPY-D, RP11-E kin at Be & R/wW TEST 


CZRPYD.P11 22-APR-78 1 


7.5 


7.6 


7.7 


DISK SURFACE USAGE 
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THE PROGRAM USES THE FOLLOWING DISK LOCATIONS FOR TESTING. 


TEST 


0 


1 
2 
3 


4 
5 
6 
7 
10 
11 
12 
13 
14 
15 
16 


17 
TEST EXECUTION SEQUENCE 


DISK ADDRESS 


CYL 0, TRK 0, SEC 0 
CYL 0, TRK O, SEC 0 
CYL 0, TRK O, SEC 0 


CYL 0, TRK O, SEC 0 
MAXIMUM CYL, TRK 19, SEC 9 


CYL 0, TRK 0, SEC 0 

CYL 0, TRK 0, SEC 0 

CYL 192, TRK 0, SEC 0 
CYL 0, TRK 0, SEC 0 

CYL 0, TRK 0, SECO - 9 
CYL 0, TRK 0 - 19, SEC 0 
CYL 0, TRK 0, SEC 0 

CYL 0, TRK O, SEC 0 
ENTIRE PACK 

MAXIMUM CYL, TRK 0, SEC 0 
N/A 

NONE 


THE TEST SEQUENCE IS TESTS 0 - 14. TESTS 15, 16, & 17 ARE ONLY 


PERFORMED IF DIRECTED BY THE OPERATOR FROM CONVERSATION MODE. 


15, 16, OR 17 CANNOT BE 
DRIVe STATUS TYPEOUT 


EXECUTED IN SEQUENCE. 


WHEN THE PROGRAM IS STARTED FROM LOCATION 200, 204, 210, OR 214 OR 


ENTERS THE CONVERSATION ROUTINE FROM A ‘CONTROL C‘, THE PROGRAM WILL 


TYPE THE STATUS OF DRIVES 0 - 7. THIS DRIVE STATUS TYPEOUT CAN 
BE INHIBITED BY SETTING SW<07> BEFORE THE PROGRAM IS STARTED OR A 


"CONTROL C‘ IS TYPED. 


TESTS 


SEQ 0013 


Ci 
Ci 
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7.8 


7.9 


DATA COMPARSION USING MEMORY MANAGEMENT 


IF THE SYSTEM HAS MORE THAN 28K, TEST 14 WILL ROTATE THE READ 

BUFFERS THROUGH ALL OF MEMORY. IF A DATA COMPARSION 

ERROR IS DETECTED, THE PROGRAM WILL TYPEOUT THE ‘GOOD’ AND THE ‘BAD’ 
DATA AND THE VIRTUAL _ ADDRESS OF THE COMPARSION ERROR LOCATION. 
THE CONTENTS OF THE APR'S IN USE WILL ALSO BE TYPED. IF MEMORY 
MANAGEMENT IS ENABLED, THE PROGRAM PERFORMS ALL DATA COMPARSIONS 

FROM VIRTUAL LOCATIONS 60000 - 137776 USING APR'S 3, 4, & 5. THE 
PHYSICAL ADDRESS OF THE COMPARSION ERROR CAN BE FORMED BY ADDING 

THE APPLICABLE ‘KIPAR' REGISTER CONTENTS (THE REGISTERS ARE DISPLAYED) 
TO THE VIRTUAL ADDRESS OF THE ERROR. 


PATTERN SELECTION WORD 


THE DATA PATTERNS USED BY TEST 14 ARE SELECTED FROM A SELECTION 
WORD WHICH IS LOADED BY THE PROGRAM OR LOADED BY THE OPERATOR IN 
CONVERSATION MODE. THE PATTERN SELECTION WORD CONTAINS A BIT FOR 
EACH PATTERN TO BE USED: BITOO REPRESENTS PATTERN 0, BITO1 REPRESENTS 
rea 1, ETC. REFER TO SECTION 8.13 FOR THE CONTENTS OF EACH 

N. 


THE OCTAL VALUES FOR EACH DATA PATTERN ARE AS FOLLOWS. 


PATTERN # OCTAL SELECTION CODE 
0 1 
1 2 
2 4S 
3 10 
& 20 
5 40 
6 100 
7 200 
8 400 
9 1000 

10 2000 
11 4000 
12 10000 
13 20000 
1% 40000 
15 100000 


THE INDIVIDUAL OCTAL CODES ARE ‘OR ED' TOGETHER TO FORM THE PATTERN 
SELECTION WORD. TO SELECT PATTERNS 0, 6, & 13, THE PATTERN SELECTION 
WORD COULD BE THE FOLLOWING OCTAL VALUE: 20101. 

CONTROLLER/DRIVE OPERATION TIME LIMIT 


ALL CONTROLLER AND DRIVE OPERATRIONS ARE TIMED BY THE PROGRAM. IF 


AN OPERATION EXCEEDS THE TIME LIMIT, THE PROGRAM WILL REPORT THE TIMEOUT, 


RESET THE CONTROLLER, TERMINATE THE CURRENT TEST, AND GO TO THE 


NEXT TEST. THE TIME LIMIT IS 150 MS TO 1.5 SEC (DEPENDING ON THE PROCESSOR). 


SEQ 0014 
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8. TEST DESCRIPTIONS 


8.1 TEST 0 = "CLEAR* COMMAND TERMINATION TEST 


VERIFY THAT ‘CLEAR® TERMINATES AN OPERATION AND CAUSES CONTROLLER 
READY TO SET. 


TEST 1 = WRITE CHECK COMMAND TEST 


THIS TEST VERIFIES THE WRITE CHECK LOGIC AND TO VERIFY THAT A WRITE 
CHECK ERROR CAN BE DETECTED. ‘FLOATING ONES' AND ‘FLOATING ZEROS‘ 
PATTERNS ARE USED TO TEST THE WRITE CHECK COMPARE LOGIC. 


TEST 2 = PARTIAL SECTOR WRITE TEST 


CHECK THE ABILITY OF THE RP11E TO CLEAR THE REMAINDER OF A SECTOR 
ON A PARTIAL WRITE OPERATION. A SECTOR OF ALL ONES IS WRITTEN AND 
THEN A TWO WORD WRITE OPERATION IS PERFORMED. THE SECTOR IS THEN 
READ BACK AND VERIFIED. THE FIRST TWO WORDS SHOULD BE ONES AND 
THE REST SHOULD BE ZEROS. 


TEST 3 - “EOP* TEST 


TEST THAT "EOP" SETS WHEN THE CONTROLLER TRIES TO WRITE BEYOND THE 
LIMITS OF THE DRIVE. THE FIRST SECTOR OF THE PACK IS WRITTEN WITH 
ZEROS; THEN A TWO SECTOR WRITE OF ALL ONE'S IS ISSUED FOR THE MAXIMUM 


BE SET. THE FIRST SECTOR OF THE PACK IS CHECKED TO MAKE SURE THAT IS 
STILL CONTAINS ZEROS. 


TEST 4 = "PROG" ERROR TEST 


VERIFY THAT THE RP11E GENERATES A ‘PROG’ ERROR IF A COMMAND IS ISSUED 
WHILE THE CONTROLLER IS BUSY. 


TEST 5 = "HEADER NOT FOUND’ TEST 

MISFORMAT THE FIRST SECTOR ON THE PACK AND THEN READ IT BACK. VERIFY 
THAT READ AND WRITE HEADER OPERATIONS WILL TRANSFER DATA CORRECTLY. 
ISSUE A WRITE COMMAND TO SECTOR ZERO; THIS SHOULD CAUSE ‘HEADER NOT 
FOUND’ TO SET. THE TEST SECTOR IS REFORMATTED. 

TEST 6 - COMMAND BUFFERING TEST 

ISSUE A SEEK COMMAND AND WAIT FOR DONE TO SET. THEN ISSUE A READ 
COMMAND WHILE THE HEADS ARE STILL MOVING. THE RP11E SHOULD 

HOLD THE READ COMMAND UNTIL THE SEEK IS COMPLETE. 

TEST 7 = "NXME* ERROR TEST 


THE NON-EXISTENT MEMORY ERROR BIT IS TESTED BY ATTEMPTING TO READ 1 
WORD INTO LOCATION 760000. '‘'NXME', ‘HE’, & ‘ERR’ SHOULD ALL BE SET. 
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8.9 


TEST 10 = SECTOR ADDRESSING TEST 


THE SECTOR ADDRESSING TEST TESTS THE CAPABILTIY OF THE RP11E TO LOCATE 

A SECTOR BY USING THE ‘SOT’ COUNTER (FOR ‘HDR’ OPERATIONS) AND TO LOCATE 

A SECTOR BY COMPARING THE HEADER CONTENTS AGAINST THE CYLINDER AND TRACK/ 
SECTOR ADDRESS REGISTERS (NORMAL MODE). THE TEST IS PERFORMED IN 3 PARTS. 


1, WRITE ALL HEADERS ON TRACK 0, CYLINDER 0 IN ASCENDING SEQUENCE 
FROM INDEX (0, 1, 2... 9). 


2. READ EACH HEADER, BEGINNING WITH SECTOR 0, AND VERIFY THAT THE 
SECTOR FIELD IN THE HEADER IS CORRECT FOR THE HEADER EXPECTED. 


VERIFY THAT THE ‘SOT’ COUNTER AND THE SECTOR ADDRESS IN ‘RPDA' ARE 
EQUAL AND ARE THE EXPECTED VALUE. THE EXPECTED VALUE IS 1 GREATER 
THAN THE SECTOR READ. THE SECTOR ADDRESS REGISTER AND THE ‘SOT' 
++ I ga tteataaatinse BY THE TIME THE PROGRAM IS ABLE TO READ THE 

R . 


WRITE THE SECTOR'S ADDRESS IN THE DATA FIELD. (FOR SECTOR 0, AN 
OCTAL 12 IS WRITTEN.) 


CONTINUE THIS SEQUENCE FOR THE REMAINING SECTORS ON THE TRACK. 


3. READ THE DATA FROM EACH SECTOR USING A NORMAL (1.E., NON-HEADER) 
READ AND VERIFY THAT THE DATA IS CORRECT FOR THE EXPECTED SECTOR. 


TEST 11 = TRACK ADDRESSING TEST 


TRACK ADDRESSING IS TESTED BY WRITING THE TRACK'S ADDRESS AS DATA IN 
SECTOR 0 OF EACH TRACK IN CYLINDER 0. SECTOR 0 IS THEN READ BACK AND 
THE DATA IS CHECKED TO VERIFY THAT THE PROPER HEAD WAS SELECTED. 


TEST 12 - EXTENDED MEMORY ADDRESS BIT TEST ns 


THIS TEST TESTS THE OPERATION OF THE EXTENDED MEMORY ADDRESS BITS. IF THE 
SYSTEM DOES NOT HAVE MEMORY MANAGEMENT OR HAS MEMORY MANAGEMENT AND ONLY 
32K, THE TEST WILL NOT BE PERFORMED. 


1. THE PROGRAM WRITES A 2 WORD TEST SECTOR OF ALL ONES. 


2. EXTENDED ADDRESS BIT 'MEXO0" IS TESTED BY CLEARING LOCATION 
200000 AND READING THE TEST SECTOR INTO LOCATION 177776. LOCATION 
200000 IS CHECKED TO VERIFY THAT THE DATA IS CORRECT (ONES). THE 
PROGRAM VERIFIES THAT 'MEXO00° HAS SET AND THAT 'MEXO1" IS NOT SET. 


3. IF THE SYSTEM HAS AT LEAST 64K, ‘MEXO1' IS TESTED. LOCATION 
400000 IS CLEARED AND THE TEST SECTOR IS READ INTO LOCATION 377776 
(*MEXOO' IS SET FOR THE READ). LOCATION 400000 IS CHECKED FOR THE 
Ag = CONTENTS (ONES). ‘MEXOO" SHOULD HAVE RESET AND ‘MEX01' SHOULD 


SEQ 0016 
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8.12 TEST 13 = RP11E DATA BUFFER REGISTER BIT TEST 


THE DATA BUFFER REGISTER TEST VERIFIES THAT ALL 36 BITS OF THE DATA 
BUFFER REGISTER CAN BE SET AND CLEARED. 


1. THE TEST WRITES THE FOLLOWING TEST PATTERN IN CYLINDER 0, 
TRACK 0, SECTOR 0 USING 10/15 MODE ('"MODE' BIT SET). 


052525 


125252 


ETC 
2. THE TEST SECTOR IS THEN READ AND THE DATA IS COMPARED. AT THE 


COMPLETION OF THE TEST, THE PROGRAM RESTORES THE TEST SECTOR TO 
PDP-11 MODE. 


TEST 14 = DATA STORAGE/RETRIEVAL TEST 


THE DATA TEST PERFORMS DATA STORAGE AND RETREIVAL TESTING USING THE CONTROLLER 
AND THE CURRENTLY SELECTED DRIVE. UNLESS ALTERED BY THE OPERATOR, THE 

TEST WILL WRITE AND WRITE CHECK THE ENTIRE DISK PACK USING ALL 16 DATA 
PATTERNS IN A ROTATING MANNER. THE BUFFER SIZE USED FOR THE WRITE AND 

WRITE CHECK ORDERS IS DETERMINED BY THE AVAILABLE MEMORY ON THE SYSTEM 

(MINUS THE SPACE REQUIRED BY THE PROGRAM LOADER). THE PROGRAM WILL USE 
ee MEMORY SIZE OR 8K, WHICHEVER IS LESS, AS THE BUFFER 


AFTER THE PACK HAS BEEN WRITTEN, THE TEST WILL READ AND COMPARE THE 

DATA. THE BUFFER SIZE USED FOR THE READ IS THE SAME SIZE AS THAT USED 
FOR THE WRITE/WRITE CHECK SEGEMENT OF THE TEST. FOR THE READ SEGEMENT OF 
THE TEST, THE PROGRAM ROTATES THE READ BUFFER THROUGH MEMORY SO THAT 

ALL OF AVAILABLE MEMORY IS USED BY THE READ AND COMPARE OPERATIONS. 

THE TEST USES MEMORY MANAGEMENT ON SYSTEMS WITH MORE THAN 28K. (MEMORY 
MANAGEMENT WILL NOT BE USED IF THE TEST IS RUN ON MEMORY MANAGEMENT 
SYSTEMS WITH 28K OR LESS.) 


IF AN ERROR OCCURS DURING A READ OPERATION (EXCEPT DATA COMPARSION 
ERRORS), THE PROGRAM WILL RETRY THE READ ORDER UP TO 3 TIMES. WRITE 
AND WRITE CHECK ORDERS ARE NOT RETRIED. 
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THE DATA PATTERNS USED BY THE DATA TEST ARE GIVEN BELOW: 


177776 
177775 
177773 
177767 
177757 
177737 
177677 
177577 
177377 
176777 
175777 
173777 
167777 
157777 
137777 
077577 100000 077777 177776 =177777 #177777 000000 


TEST 15 = POWER FAIL TEST 


TEST THE ABILITY OF THE RP11E TO SENSE POWER FAILURE AND FOR THE DRIVES 
TO RETRACT THEIR HEADS. WHEN POWER IS TURNED ON AGAIN 

THE CYLINDER ADDRESS IS TESTED FOR ZERO. AFTER TYPING THE MESSAGE 
REQUESTING POWER TO BE TURNED OFF, THE PROGRAM GOES INTO A LOOP 

READING FROM THE SELECTED DISK DRIVE. AFTER POWER IS RESTORED, 

MEMORY IS CHECKED TO SEE THAT THE DISK DID NOT TRANSFER ANY DATA 

TO MEMORY WHILE POWER WAS GOING DOWN. 


TEST 16 = HEAD ALIGNMENT ROUTINE 


THIS ROUTINE PERFORMS HEAD SELECTION AS DIRECTED FROM THE KEYBOARD; 
ALIGNMENT OF THE SELECTED HEAD MAY BE CHECKED OR ADJUSTED. 
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8.16 TEST 17 = RP11E/DRIVE CONTROL PANEL SWITCH TEST 


THIS TEST TESTS THE "ENABLE/DISABLE' AND ‘READ ONLY' SWITCHES 
ON THE DRIVE CONTROL PANEL AND TESTS THE ‘WRITE LOCKOUT AND 
"LOA' SWITCHES ON THE RP11E CONTROL PANEL. 


PROGRAM LISTING 
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CZRPYD.P11 


000174 
000176 


000046 
000052 


000000 


000174 
000000 
000000 


000200 
000046 
017050 
000052 
000000 
000200 


000200 


SEQ 0020 


TITLE CZRPY-D, RP11-E FUNCTIONAL LOGIC & R/W TEST 
s*COPYRIGHT (C) 1975,1978 

s*DIGITAL EQUIPMENT CORP. 

aa, MASS. 01754 


!sPROGRAM BY C. HESS/F. ROEMER 


S eTHIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
Pa ais (MAINDEC=11-DZQAC-C3), JAN 19, 1977. 


‘SBTTL OPERATIONAL SWITCH SETTINGS 
SWITCH 


HALT ON ERROR 

LOOP ON TEST 

INHIBIT ERROR TYPEOUTS 

INHIBIT ITERATIONS 

BELL ON ERROR 

LOOP ON ERROR 

DON'T TYPE DRIVE STATUS WHEN PROGRAM STARTED OR WHEN 
ENTERING CONVERSATION MODE 

CHANGE HEAD SELECTION IN TEST 16 

DON'T USE MEMORY MANAGEMENT IN TEST 14 
DISPLAY ALL READ RETRY ATTEMPTS IN TEST 14 
PRINT ALL COMPARE ERRORS IN TESTS 13 @ 14 
INHIBIT DATA COMPARE IN TESTS 13 & 14 
BYPASS READ AND DATA COMPARE IN TEST 14 
BYPASS WRITE CHECK IN TEST 14 

BYPASS WRITE IN TEST 14 


Be Be Be Se Be Be Be Se Be Se Se Be 


a 
® 
* 
* 
* 
* 
® 
® 
*® 
* 
* 
® 
*® 
* 
* 
*® 
* 
® 
* 


Be Be Be Be Be Se Be 


~SBTTL TRAP CATCHER 


.=0 
7 *ALL UNJSED LOCATIONS FROM 4 - 776 CONTAIN A ‘'.#2,HALT"’ 
*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
; *LOCATION 5, Srnens 0 TO CATCH IMPROPERLY LOADED VECTORS 
=i 
DISPREG: .WORD 0 :;SOFTWARE DISPLAY REGISTER 
SWREG: -WORD 0 ;: SOFTWARE SWITCH REGISTER 


-SBTTL ACT11 HOOKS 


ttt PPP PPP RRR R RRR R PRR RRRASRASRSSEASASESASESE EEE ALES ESSE ESS S| 


HOOKS REQUIRED BY ACT11 
$s SAVE PC 
3:1)SET LOC.46 TO ADDRESS OF SENDAD IN .SEOP 


3:2)SET LOC. rt TO ZERO 
:2 RESTORE P 


-SBTTL STARTING ADDRESSES 
-=200 
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3*200 = NORMAL grt 
000200 000137 003654 JMP START1 

#204 = SELECT OPERATING PARAMETERS 
000204 000137 003676 JMP START2 

3*210 = SELECT RP11E ADDRESS 
000210 000137 003644 JMP STARTS 

3*214 = COMBINATION 204 AND 210 
000214 000137 003666 JMP STARTS 


-SBTTL BASIC DEFINITIONS 
ia te OF THE STACK POINTER *** 1100 *** 


001100 STACK= 
-EQUIV EMT,ERROR >;BASIC DEFINITION OF ERROR CALL 
-EQUIV I0T,SCOPE ::BASIC DEFINITION OF SCOPE CALL 
; *MISCELLANEOUS DEFINITIONS 
000011 HT= 11 ;CODE FOR HORIZONTAL TAB 
LF= CODE FOR LINE FEED 
CR= 1 3:CODE FOR CARRIAGE RETURN 
CRLF= ;;CODE FOR CARRIAGE RETURN-LINE FEED 
177776 PS= >sPROCESSOR STATUS WORD 


EQUIV 

177774 STKLMT= ::STACK LIMIT REGISTER 

177772 PIRQ= 3:PROGRAM INTERRUPT REQUEST REGISTER 
HARDWARE SWITCH REGISTER 


177570 DSWR= 
177570 DDISP= 177570 : HARDWARE DISPLAY REGISTER 


SEQ 0021 


a’ 


000000 
000001 
000002 
000003 
000004 
000005 
000006 
000007 
000006 
009007 


000000 


000340 


100000 
040000 
020000 
010000 
004000 


gmat inate REGISTER DEFINITIONS 


7 GENERAL 
R1= GENERAL 
R2= 3: GENERAL 
R3= 3; GENERAL 
R4= 3; GENERAL 
R5= 7: GENERAL 
R6= 3: GENERAL 
R7= 3; GENERAL 


REGISTER 
REGISTER 
REGISTER 
REGISTER 
REGISTER 
REGISTER 
REGISTER 
REGISTER 


SP= 7:STACK POINTER 


PC= 3; PROGRAM 


:*PRIORITY LEVEL DEFINITIONS 

PRO= 0 : PRIORITY 
PR1= : PRIORITY 
PR2= 7:PRIORITY 
PR3= : PRIORITY 
PR4= 7 PRIORITY 
PR5= :;PRIORITY 
PR6= ; PRIORITY 
PR7= 7 PRIORITY 


:*""SWITCH REGISTER’ SWITCH DEFINIT 
SW15= 100000 


COUNTER 


LEVEL 
LEVEL 
LEVEL 
LEVEL 
LEVEL 
LEVEL 
LEVEL 
LEVEL 


IONS 


NOUS WNM—O 
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002000 


000001 


100000 


000001 


000004 


000014 


BASIC DEFINITIONS 


$w09,SW9 
SW08, SwW8 
SWO7,SW7 
SW06 , SW6 
SWO5,SW5 
SWO04,SW4 
SW03,SW3 
SWO2,SW2 
SWO1,SW1 
$W00,SWO 
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BIT DEFINITIONS (BITOO TO BIT15) 
100000 


B1T09,B1T9 
B1T08,B1T8 
B1T07,B117 
BIT06,B1T6 
BIT05,B1T5 
BIT04,B114 
° B1T03,B1T3 
-EQUIV BITO2,BIT2 
-EQUIV BIT01,BIT1 
-EQUIV BITO0O,BITO 


letorte P tall TRAP VECTOR hss ig 


TIME OUT AND OTHER ERRORS 
: RESERVED AND ILLEGAL INSTRUCTIONS 


3; TRACE TRAP 
+ BREAKPOINT TRAP (BPT) 


SEQ 0022 





On 
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000020 IOTVEC= 20 ua th TRAP (IOT) **SCOPE** 
PWRVEC= 24 ;;POWER FAIL 
EMTVEC= 30 7;EMULATOR TRAP (EMT) **ERROR** 
TRAPVEC=34 33‘"TRAP’’ TRAP 
= ::TTY KEYBOARD VECTOR 
eeTTy PRINTER VECTOR 
000240 PIRQVEC=240 PROGRAM INTERRUPT REQUEST VECTOR 
.SBTTL MEMORY MANAGEMENT DEFINITIONS 


3*KT11 VECTOR ADDRESS 
000250 MMVEC= 250 
3*KT11 STATUS REGISTER ADDRESSES 


177572 SRO= 177572 
177574 SR1= 177574 
177576 SR2= 177576 
172516 SR3= 172516 


s*KERNEL "'I'* PAGE DESCRIPTOR REGISTERS 


172300 KIPDRO= 
KIPDR1= 
KIPDR2= 
KIPDR3= 
KIPDR4= 
KIPDR5= 
KIPDR6= 
KIPDR7= 


z*KERNEL ‘'I'’ PAGE ADDRESS REGISTERS 


KIPARO= 172340 
KIPAR1= 
KIPAR2= 
KIPAR3= 
KIPAR4= 
KIPAR5S= 
KIPAR6= 

172356 KIPAR7= 172356 


RPT1E REGISTER INDEX EQUATES 


000000 RPDS=00 
RPER=02 
RPCS=04 
RPWC=06 
RPBA=10 
RPCA=12 
RPDA=14 
RPM1=16 
RPM2=20 
RPM3=22 
000024 SUCA=24 


1107 
1108 
1109 
1110 
1111 
1112 
1113 
1114 
1115 
1116 
1117 
1118 
1119 
1120 
1121 
1122 
1123 
1124 
1125 
1126 
1127 
1128 
1129 
1130 
1131 
1132 
1133 
1134 
1135 
1136 
1137 
1138 
1139 
1140 
1141 
1142 
1143 





On 


_ 
a 
~~ 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


et a at ot ot ot ot ot ot ot st at at OV a I 


© 09 09 09 SIN SI SI NN NSN NN SIA AAAAAAADAADRMMIMMNMNMMNMMA SE 
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000026 


000001 


000017 


000400 


100000 


000020 


100000 
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MEMORY MANAGEMENT DEFINITIONS 
SILO=26 
;RP11 OP CODE DEFINITIONS 


CLEAR=1 
WRTSEK=3 
RDSEK=5 
WRTCHK=7 
SEEK=11 
WRITE=13 
HOMSEK=15 
READ=17 


RPDS REGISTER BIT DEFINITIONS 


SUWP=400 

SUF U=1000 
$US1=4000 
SURP03=20000 
SU0L=40000 
SURDY=100000 


sRPCS REGISTER BIT DEFINITIONS 


MEX0=20 
MEX1=40 
IDE=100 
RDY=200 
HDR=4000 
MODE=10000 
AIE=20000 
HE=40000 
ERR=100000 


SEQ 0024 


CLEAR THE CONTROLLER 
WRITE WITH IMPLIED SEEK AND HEAD SELECTION 


READ WITH IMPLIED SEEK AND HEAD SELECT 
WRITE CHECK WITH IMPLIIED SEEK AND HEAD SELECT 


; SEEK 

WRITE (NO IMPLIED SEEK OR HEAD SELECT) 
sHOME SEEK 

sREAD (NO IMPLIED SEEK OR HEAD SELECT) 


;SELECTED UNIT WRITE PROTECTED 
: SELECTED UNIT FILE UNSAFE 

s SELECTED UNIT SEEK INCOMPLETE 
SELECTED UNIT IS AN RPO3 
;SELECTED UNIT IS ONLINE 

: SELECTED UNIT IS READY 


EXTENDED MEMORY BIT #1 
EXTENDED MEMORY BIT #2 

; INTERRUPT ON DONE ENABLE BIT 
;RP11 CONTROLLER READY BIT 
;HEADER OPERATION BIT 

MODE BIT 

sATTENTION INTERRUPT ENABLE BIT 
HARD ERROR BIT 

ERROR BIT 
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Quklno 


001222 
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001100 


5 
000012 
000000 


000000 
000000 


000377 


MACY11 30A(1052) 


COMMON TAGS 
-SBTTL COMMON TAGS 


Mm 2 
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FRR AEA AAA AAA A EAE AA AAA AAA TEAR AAAAERAE KARATE 


THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 


;*USED IN THE PROGRAM. 


+ tnaaiacmreaaae 


zz START OF 
3 CONTAINS 
3; CONTAINS 
3; CONTAINS 
3: CONTAINS 
> CONTAINS 
3; CONTAINS 
3; CONTAINS 
3; CONTAINS 
3 CONTAINS 
:; CONTAINS 
>; CONTAINS 
7; CONTAINS 
3: CONTAINS 
3; CONTAINS 


COMMON TAGS 

PASS COUNT 

THE TEST NUMBER 

cRROR FLAG 

SUBTEST ITERATION COUNT 
SCOPE LOOP ADDRESS 
SCOPE RETURN FOR ERRORS 
TOTAL ERRORS DETECTED 
ITEM CONTROL BYTE 

MAX. ERRORS PER TEST 

PC OF LAST ERROR INSTRUCTION 
ADDRESS OF ‘GOOD’ DATA 
ADDRESS OF "BAD" DATA 
*GOOD’ DATA 

*"BAD' DATA 


;;RESERVED--NOT TO BE USED 


:;AUTOMATIC MODE INDICATOR 
:: INTERRUPT MODE INDICATOR 


7: ADDRESS OF SWITCH REGISTER 
z ADDRESS OF DISPLAY REGISTER 
TTY KBD STATUS 
7; TTY KBD BUFFER 


sz TTY PRINTER STATUS REG. ADDRESS 
7: TTY PRINTER BUFFER REG. ADDRESS 
3:CONTAINS NULL CHARACTER FOR FILLS 
s CONTAINS # OF FILLER CHARACTERS REQUIRED 
7: INSERT FILL CHARS. AFTER A ‘‘LINE FEED" 
z3‘"TERMINAL AVAILABLE’ FLAG (BIT<07>=0=YES) 
;;USER DEFINED 
23 MAX. NUMBER OF ITERATIONS 

sESCAPE ON ERROR ADDRESS 
>: CODE FOR BELL 
7 ;QUESTION MARK 
7; CARRIAGE RETURN 
7 ;LINE FEED 


FF RRR AERA AERA AEA AAA AERA EEA AERA AERA AREA 


-=1100 
SCMTAG 
SPASS: .WORD 0 
STSTNM: .BYTE 0 
SERFLG: .BYTE 0 
SICNT: .WORD 0 
SLPADR: .WORD 0 
SLPERR: .WORD 0 
SERTTL: .WORD 0 
SITEMB: .BYTE 0 
SERMAX: .BYTE 1 
SERRPC: .WORD 0 
SGDADR: .WORD 0 
SBDADR: .WORD 0 
SGDDAT: .WORD 0 
SBDDAT: .WORD 0 

~ WORD 0 

~ WORD 0 
SAUTOB: .BYTE 0 
SINTAG: .BYTE 0 

-WORD 0 
SWR: -WORD OSWR 
DISPLAY: .WORD ODDISP 

TKS: 177560 

STKB: 177562 
STPS: 177564 
STPB: 177566 
SNULL -BYTE 0 
SFILLS: .BYTE 2 
SFILLC BYTE 12 
STPFLG: .BYTE 0 
STMPO: .WORD 0 
STIMES: 0 
SESCAPE:0 
$BELL -ASCIZ 
SQUES ASCII 
SCRLF ASCII <i5> 
SLF: eASCIZ <12> 
CHKDRV: .WORD 0 
BYPASS: .WORD 0 
FLAG: -WORD 0 
PATNUM: .WORD 0 
CNTRLC: .WORD 0 
MAXCYL: .WORD 0 
TIMOUT: .WORD 1000. 
ICNT: -WORD 0 
BUSADR: .WORD 0 
STALLT: .WORD 0 
MMACTV: .WORD 0 


ADDRESS OF DRIVE BEING USED 
TEST EXIT ADDRESS 

; INTERNAL PROGRAM FLAG WORD 
CURRENTLY SELECTED PATTERN 
CONVERSATION MODE FLAG 

MAXIMUM CYLINDER ADDRESS FOR THE DRIVE IN USE 
TIME ALLOWED FOR AN OPERATION 
TEST ITERATION COUNT 

CHANGE RP11 ADDRESS FLAG 

:STALL VALUE 

MEMORY MANAGEMENT IS ACTIVE FLAG 


SEQ 0025 


C 
Ci 


CZRPY-D, RP11-E ea at LOGIC & R/wW TEST 
CZRPYD.P11 742 COMMON 


001302 
001304 


001306 
001310 


001312 
001314 
001316 
001320 
001322 


001324 
001326 
001332 


001334 


22-APR-78 1 


000000 
000000 


000000 
000000 


000000 


000000 


176710 
000254 
000240 


000000 


000000 
000000 
000000 
000000 
000000 


000256 


ACTMEM: 


DRVSEL: 


RETRY: 


LRETRY: 
CMP.CT: 
LDRFLG: 


MACY11 30A(1052) 
TAGS 


- WORD 
- WORD 
- WORD 
«WORD 
- WORD 
- WORD 
«WORD 
- WORD 
«WORD 
- WORD 
- WORD 
«WORD 
- WORD 
«WORD 
- WORD 
- WORD 


$: .WORD 
MEMSIZ: 
DRVTYP: 


DRVMSK: 
DRVBAD: 


«WORD 
- WORD 


- WORD 


- WORD 
- WORD 


- WORD 
«WORD 
«WORD 
- WORD 
«WORD 


;RP11 ADDRESS 


RPADR: 
RPVEC: 


RPPRIO: 


- WORD 
- WORD 
- WORD 


oo oO ocooooooomoooooooooo 
© 
Nm 


OWWOO 


VALUES 


176710 
254,256 
<5*32.> 


SAVE THE RP11E REGISTERS HERE 


SRPDS: 
SRPER: 
SRPCS: 
SRPWC: 
SRPBA: 
SRPCA: 
SRPDA: 
SRPM1: 
SSUCA: 
SSILO: 


- WORD 
«WORD 
«WORD 
- WORD 
«WORD 
- WORD 
- WORD 
- WORD 
- WORD 
- WORD 


oooocoo°oco°c;[Teo 


;ATTENTION BITS 


ATABIT: 


-BYTE 
-BYTE 
-BYTE 


en 


N 2 
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SEQ 0026 


sPHYSICAL ADDRESS OF NEXT READ BUFFER 

ADDRESS OF LAST MEMORY BANK (FILLED BY $SIZE) 
;PHYSICAL ADDRESS OF LAST MEMORY BANK (FOR TEST 14) 
;PHYSICAL ADDRESS OF FIRST BUFFER LOCATION 
SECTORS ON THE PACK ON THE DRIVE BEING TESTED 
:SECTOR INCREMENT VALUE 

; TRACK INCREMENT VALUE 

;NUMBER SECTORS IN TRANSFER IN TEST 14 

;WORD COUNT FOR TEST 14 

OPERATOR SELECTED ADDRESS FLAG 

LARGEST TRANSFER PERMITTED 

;MAXMUM WORD COUNT ALLOWED ON THIS SYSTEM 
OPERATOR SELECTED CYLINDER 

OPERATOR SELECTED TRACK 

OPERATOR SELECTED SECTOR 

READ RETRY COUNTER 

TEST SELECTION WORD. BIT O = TEST O, ETC. 
PATTERN SELECTION WORD FOR TEST 14 

;ADDRESS OF HIGHEST NON-MEMORY MANAGEMENT 
;MEMORY LOCATION 

CONTAINS A BIT FOR EACH RPOS DRIVE 

;ON THE SYSTEM. BITOO = DRIVE 0, ETC. 

DRIVE TEST SELECTION MASK 

:CONTAINS A BIT FOR THE DRIVE IF THE DRIVE 
:GOES OFFLINE OR — UNSAFE DURING TESTING. 
:B1T00 = DRIVE 0, 

CONTAINS A BIT For TEACH DRIVE TO BE TESTED 
RETRY COUNTER FOR TEST 14 

:RETRY LIMIT FOR TEST 14 

;NUMBER OF COMPARE ERROR TYPEOUTS 

WHEN =0 LOADERS ARE AT TOP OF MEMORY 


;RP11 BUS ADDRESS 
;RP11 VECTOR ADDRESS 
;RP11 PRIORITY 


sDRIVE STATUS KEGISTER 
ERROR REGISTER 

COMMAND & STATUS REGISTER 

:WORD COUNT REGISTER 

:BUFFER ADDRESS REGISTER 

; CURRENT CYLINDER ADDRESS REGISTER 

; TRACK=SECTOR ADDRESS REGISTER 
MAINTENANCE REGISTER #1 

;SELECTED UNIT CYLINDER ADDRESS REGISTER 
:SILO REGISTER 





Ci 
C2 


CZRPY-D, RP11-E FUNCTIONAL LOGIC & R/W TEST 
CZRPYD.P11 


001363 
001364 
001365 
001366 
001367 


001370 


001377 


001400 


001436 
001440 


001476 


22-APR-78 14:42 


100000 
001500 


002440 


-BYTE 
-BYTE 
-BYTE 
«BYTE 


B 3 
MACY11 30A(1052) 22-APR-78 14:43 PAGE 28 
COMMON TAGS 


DRIVE STATUS INDICATORS (DORVSTA=8 BYTES) 
sDRVSTA=0 DRIVE NONEXISTENT OR OFFLINE 
sDRVSTA>O DRIVE IS ONLINE 

s;DRVSTA<O DRIVE IS UNSAFE 


DRVSTA: 


-BYTE 
-BYTE 
-BYTE 
-BYTE 
-BYTE 
-BYTE 
-BYTE 
-BYTE 


:BIT TABLE 


BITS: 


PAT.PT: 


- WORD 
- WORD 
«WORD 
. WORD 
- WORD 
- WORD 
« WORD 
« WORD 
- WORD 
« WORD 
. WORD 
« WORD 
«WORD 
«WORD 
«WORD 
«WORD 


«WORD 
«WORD 
«WORD 
«WORD 
- WORD 
. WORD 
«WORD 
«WORD 
- WORD 
» WORD 
- WORD 
- WORD 
- WORD 
«WORD 
- WORD 
- WORD 


ooooc;eo°cwoc 


sORIVE 
sDRIVE 
s DRIVE 
sDRIVE 
sDORIVE 
sDRIVE 
sORIVE 
; DRIVE 


NOUS WNM—O 


TABLE OF POINTERS WHICH POINT TO THE 
PATTERNS USED BY THE DATA TEST 


SEQ 0027 


CZRPY-D, RP11-E FUNCTIONAL LOGIC & R/W TEST 
P11 22-APR-78 14:42 


COMMON TAGS 


;PATIERNS 0 THRU 15 


PATO: 
ORD 


000000 
PAT1:  .WORD 000001 


«WORD 
«WORD 


177777 
PAT2:  .WORD 177776 


- WORD 
- WORD 
«WORD 
- WORD 
« WORD 
- WORD 
« WORD 
«WORD 
«WORD 
. WORD 
. WORD 
«WORD 
- WORD 
. WORD 


-WORD 060000 


PAT3:  .WORD 000000 
-WORD 000000 


-WORD 000000 
oW 


‘2 
MACY11 30A(1052) 22-APR-78 14:43 PAGE 29 
A 


;PATTERN 0 


PATTERN 1 


sPATTERN 2 


;PATTERN 3 





dD 3 
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CZRPYD.P11 22-APR-78 14:42 COMMON TAGS SEQ 0029 


001644 000000 -WORD 000000 
177777 «WORD = 177777 
177777 «WORD 177777 
177777 «WORD 177777 
000000 -WORD 000000 
000000 -WORD 000000 
177777 «WORD 177777 
177777 WORD = 177777 
000000 -WORD 000000 
177777 «WORD 177777 
000000 «WORD 000000 
177777 «WORD 177777 
177777 «WORD 177777 
001676 000000 . 000000 


001700 000000 ts 000000 sPATTERN 4 


001736 177777 é 177777 


001740 052525 _ 052525 sPATTERN 5 
001742 ° 

001744 

001746 


001776 052525 “WORD 


002000 007417 PAT6:  .WORD PATTERN 6 
. WORD 
. WORD 
- WORD 
- WORD 
. WORD 
002014 007417 -WORD 007417 





CZRPY-D, RP11-E ee Fes & R/wW TEST 


E 
MACY11 30A(1052) 
COMMON TAGS 


. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
«WORD 
«WORD 
«WORD 
«WORD 


«WORD 
- WORD 
«WORD 
. WORD 
- WORD 
«WORD 
. WORD 
«WORD 
. WORD 
- WORD 
- WORD 
- WORD 
. WORD 
« WORD 
. WORD 


007417 
170360 
170360 
007417 
170360 
007417 
170360 
170360 
007417 


026455 


026455 
077577 


077577 
000001 


004000 





14:43 PAGE 31 


;PATTERN 8 (WORST CASE PATTERN) 


CZRPY-D, RP11-E FUNCTIONAL LOGIC & R/W TEST 
PYD.P11 22-APR-78 14:42 


002170 
002172 
002174 
002176 


002200 


002236 
002240 


002276 
002300 


002336 


010000 
020000 
040000 
100000 


177776 
177775 
177773 
177767 
177757 
177737 
177677 
177577 
177377 
176777 
175777 
173777 
167777 
157777 
137777 
077777 


172666 


155555 


077777 
137777 
157777 
167777 


177776 


COMMON TAGS 


«WORD 
- WORD 
. WORD 
- WORD 


PAT10: 


«WORD 


“WORD 


PAT11: 


«WORD 


. WORD 
. WORD 
- WORD 
. WORD 
« WORD 
«WORD 
- WORD 
« WORD 
. WORD 
«WORD 
- WORD 
. WORD 
- WORD 
- WORD 
- WORD 


PAT12: 


«WORD 


. WORD 
- WORD 
- WORD 
. WORD 
«WORD 
«WORD 
- WORD 
«WORD 
- WORD 
«WORD 
- WORD 
«WORD 
«WORD 
- WORD 
- WORD 


,_ # 
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010000 


100000 


177776 PATTERN 10 
177775 
177773 
177767 
177757 
177737 
177677 
177577 
177377 
176777 
175777 
173777 
167777 
157777 
137777 
077777 


172666 PATTERN 11 


155555 
077777 ;PATTERN 12 


177776 


SEQ 0031 








CZRPY-D, RP11-E FUNCTIONAL _— & R/wW TEST 


MACY11 30A(1052) 


G 3 
22-APR-78 14:43 PAGE 33 


PATTERN 13 


PATTERN 14 


PATTERN 15 


;DRIVE NUMBER 
« & * BITS 


CZRPYD.P11 22-APR-78 14:4 COMMON TAGS 

1576 002340 177777 PAT13: .WORD 177777 
1577 002342 177777 «WORD 177777 
1578 002344 177777 «WORD 177777 
1579 002346 177777 -WORD 177777 
1580 002350 177777 «WORD 177777 
1581 002352 177777 «WORD 177777 
1582 002354 177777 «WORD 177777 
1583 002356 177777 «WORD 177777 
1584 002360 177777 «WORD 177777 
1585 002362 177777 -WORD 177777 
1586 002364 177777 WORD 177777 
1587 002366 177777 WORD =177777 
1588 002370 177777 -WORD 177777 
1589 002372 177777 -WORD 177777 
1590 002374 177777 «WORD 177777 
Ht sal 002376 177777 -WORD 177777 
1593 002400 000000 PAT14: .WORD 000000 
1594 002402 000000 -WORD 000000 
1595 002404 177777 «WORD 177777 
1596 002406 177777 -WORD 177777 
1597 002410 177777 «WORD 177777 
1598 002412 177777 -WORD 177777 
1599 002414 177777 -WORD 177777 
1600 002416 177777 ~WORD 177777 
1601 002420 177777 -WORD 177777 
1602 002422 177777 -WORD 177777 
1603 002424 177777 -WORD 177777 
1604 002426 177777 -WORD 177777 
1605 002430 177777 -WORD 177777 
1606 002432 177777 «WORD 177777 
1607 002434 177777 -WORD 177777 
et 002436 177777 -WORD 177777 
1610 002440 177777 PAT15: .WORD 177777 
1611 002442 177777 -WORD 177777 
1612 002444 000000 -WORD 000000 
1613 002446 000000 -WORD 000000 
1614 002450 000000 -WORD 000000 
1615 002452 000000 -WORD 000000 
1616 002454 000000 -WORD 000000 
1617 002456 000000 -WORD 000000 
1618 002460 000000 -WORD 000000 
1619 002462 000000 . WORD 00000 
1620 002464 000000 -WORD 000000 
1621 002466 000000 -WORD 000000 
1622 002470 000000 -WORD 000000 
1623 002472 000000 -WORD 000000 
1624 002474 000000 -WORD 000000 
oe 002476 000000 -WORD 000000 
4H DRIVE OPERATION CONTROL BLOCK 
1629 002500 000 DPB: -BYTE 0 

1630 002501 000 -BYTE 0 

1631 002502 000 -BYTE 0 


7 "ME I 
; OPERATION CODE 


SEQ 0032 


H 3 
jy RP11-E FUNCTIONAL LOGIC & R/W TEST MACY11 30A(1052) 22-APR-78 14:43 PAGE 34 
PYD.P11 22-APR-78 14:42 COMMON TAGS SEQ 0033 


002503 000 -BYTE 
002504 609000 SWC: - WORD 
002506 000000 SBUF:  .WORD 
002510 000000 $CYL: .WORD 
002512 000 $SEC: .BYTE 
002513 000 $TRK: .BYTE 


;MODE AND HDR BITS 
;WORD COUNT 
;BUFFER ADDRESS 
;CYLINDER ADDRESS 
; SECTOR ADDRESS 

; TRACK ADDRESS 


oooo°o°o 





i 
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RPYD.P11 22-APR-78 14:42 ERROR POINTER TABLE SEQ 0034 


-SBTTL ERROR POINTER TABLE 


;*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 

:*THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 

:*LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT. 

> *NOTE1: IF SITEMB IS 0 THE ONLY PERTINENT DATA IS (SERRPC). 

7 *NOTE2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 


: ::POINTS TO THE ERROR MESSAGE 
: 7:POINTS TO THE DATA HEADER 

: ;:POINTS TO THE DATA 

: ::POINTS TO THE DATA FORMAT 


002514 SERRTB: 
;ERROR 1 


002514 032173 :RP11 DIDN'T RESPOND TO ADDRESSING 
002516 040315 
002520 043036 
002522 043516 


002524 032235 CAN'T START READ COMMAND 
002526 040323 
002530 043040 
002532 043522 


002534 032266 :"CLEAR’ COMMAND DIDN'T TERMINATE DATA TRANSFER OPERATION 
002536 040323 
002540 043040 
002542 043522 


002544 032357 ERROR WRITING TEST SECTOR(S) 
002546 

002550 

002552 043522 


002554 032414 WRITE CHECK ERROR CHECKING TEST SECTOR(S) 
002556 040465 
002560 043072 
002562 043532 


002564 032466 sEXPECTED WCE" DIDN'T OCCUR 
002566 040465 
002570 043072 
002572 043532 





J. 53 
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CZRPYD.P11 22-APR-78 14:42 ERROR POINTER TABLE SEQ 0035 


ERROR 7 


002574 032522 sERROR WRITING LESS THAN A FULL SECTOR 
002576 040323 
002600 043040 
002602 043522 


002604 000000 ; UNUSED 
002606 000000 
002610 000000 
002612 000000 


002614 032570 sONE OF 2 WORDS WRITTEN IN THE PARTIAL WRITE DIDN'T COMPARE 
002616 040637 
002620 043126 
002622 043542 


002624 032663 ;NON-ZERO DATA IN PART OF SECTOR WHICH SHOULD HAVE 
;BEEN ZERO FILLED DURING PARTIAL WRITE 
002626 040720 


002630 043142 
002632 043542 


—CODONOUSWN— 


SN NN NN SNS NSN NSN GS 
NR OS es 


Nm 
Nm 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


NNN 
Mmnrrm 
Mw 


002634 033014 ;"EOP" DIDN'T SET DURING A 2 SECTOR WRITE BEGINNING 
zAT THE LAST SECTOR OF THE PACK 
002636 040323 


002640 043040 
002642 043522 


002644 033137 :"ERR* DIDN'T SET WITH ‘EOP’ 
040775 
043156 

002652 043542 


002654 033173 ;"EOP* DIDN'T CLEAR RPCA 
002656 

002660 

002662 043522 


ERROR 


002664 033223 ;SUCA NOT CORRECT AFTER ‘EOP* 
002666 041052 





an 


CZRPY-D, RP11-E sepa aa a & R/w TEST MACY11 30A(1052) 


CZRPYD.P11 


002670 
002672 


002674 
002676 
002700 
002702 


002704 


002706 
002710 
002712 


002714 


002716 
002720 
002722 


002724 
002726 
002730 
002732 


002734 


002742 


002744 
002746 
002750 
002752 


002754 
002756 
002760 
002762 


22-APR-78 1 


043172 
043616 


033260 
040323 
043040 
043522 


033312 


040637 
043126 
043542 


033425 


040775 
043156 
043542 


033535 
040775 
043156 
043542 


033572 
040323 
043040 
043522 


033641 
040775 
043156 
043542 


033716 
041167 
043204 
043546 


ERROR POINTER TABLE 


DT16 
DF53 


ERROR 17 


; ERROR 


; ERROR 


ERROR 


K 3 
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SEQ 0036 


ERROR READING TEST SECTOR 


CONTENTS OF FIRST SECTOR OF PACK CHANGED AFTER 
sFORCING 'EOP* DURING WRITE 


;"PROG' ERROR DIDN'T SET WHEN READ COMMAND ISSUED 
;WHILE CONTROLLER BUSY 


:"ERR* DIDN'T SET WITH ‘PROG’ 


ERROR ATTEMPTING TO MISFORMAT SECTOR 0 


ERROR VERIFYING THE MISFORMATTED TEST HEADER 


sMISFORMATTED TEST HEADER IS NOT CORRECT 





Oo 
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002764 033766 ;"HNF* DIDN'T SET WHEN SEARCHING FOR MISFORMATTED SECTOR 
002766 040323 
002770 043040 
002772 043522 


7 ERROR 


002774 034056 :"DSK* NOT SET WITH "HNF* 
002776 040775 
003000 043156 
003002 043542 


tt ws 
CD 09 69 09 Op OO OD CO 


; ERROR 


003004 034107 ;"HE' DIDN'T SET WITH "HNF' 
003006 

003010 

003012 043542 


7 ERROR 


003014 034142 :"ERR' NOT SET WITH ‘HNF' 
003016 040775 
003020 043156 
003022 043542 


7 ERROR 


003024 034173 ERROR WHILE RESTORING MISFORMATTED TEST HEADER 
003026 040323 
003030 043040 
003032 043522 


003034 034252 CONTROLLER DIDN'T BECOME BUSY WHEN READ COMMAND 
ISSUED TO SEEKING DRIVE 
003036 040323 


003040 043040 
003042 043522 


003044 ereaes sERROR DURING READ COMMAND WHICH WAS ISSUED TO SEEKING DRIVE 
043040 
003052 043522 


003054 034457 DATA INCORRECT FROM HEADER READ COMMAND ISSUED 


:TO SEEKING DRIVE 
003056 041167 
003060 043204 
003062 043546 





an 


CZRPY-D, RP11-E FUNCTIONAL LOGIC & R/W TES) 


CZRPYD.P11 


003072 


003074 
003076 
003100 
003102 


003104 


003112 


003114 
003116 
003120 
003122 


003124 
003126 
003130 
003132 


003134 
003136 
003140 
003142 


003144 
003146 
003150 
003152 


003154 
003156 
003160 
003162 


22-APR-78 14:42 


034561 


043522 


034642 


043542 


034676 
040775 
043156 
043542 


034733 
040323 
043040 
043522 


034764 
040323 
043040 
043522 


035042 


043556 


035112 
040323 
043040 
043522 


035165 
041502 
043262 
043572 


ERROR POINTER TABLE 
ERROR 36 


zs ERROR 


ERROR 


; ERROR 


; ERROR 


; ERROR 


m 3 
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;"NXME* DIDN'T SET WHEN LOCATION 760000 ADDRESSED 


;"HE' DIDN'T SET WITH "NXME" 


;"ERR® DIDN7T SET WITi "NXME' 


ERROR FORMATTING TRACK 0 


ERROR READING THE HEADER FROM THE TEST SECTOR 


SECTOR FIELD FROM HEADER IS NOT CORRECT 


ERROR WRITING SECTOR ADDRESS IN DATA FIELD 


:"SOT* OR SECTOR ADDRESS REGISTER IS NOT CORRECT 


SEQ 0038 





C 
C 


CZRPY-D, RP11-E FUNCTIONAL LOGIC & R/W TEST 


CZRPYD.P11 


003164 


003172 


003174 


003176 
003200 
003202 


003204 
003206 
003210 
003212 


003214 


003216 
003220 
003222 


003224 
003226 
003230 
003232 


003234 


003236 
003240 
003242 


003252 


003254 


22-APR-78 14:42 


035245 
041674 
043306 
043542 


035316 
042031 


043322 
043602 


035445 


043522 


035524 
042145 


043346 
043612 


035620 
042145 
043346 
043612 


035704 


041167 
043204 
043616 


036013 


043522 


036072 


ERROR POINTER TABLE 
sERROR 46 


sERROR 50 


sERROR 51 


sERROR 53 


sERROR 54 


SERROR 55 


N 3 
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DATA NOT CORRECT FOR SECTOR READ 


SECTOR CONTENTS WRONG, DATA SHOULD BE THE 
; TRACK NUMBER OF THE CURRENTLY SELECTED HEAD 


sERROR AFTER 2 WORD READ STARTING AT LOC 177776 


:*MEXO' DIDN'T SET AFTER 2 WORD READ STARTING 
zAT LOC 177776 


;"MEX1" SET AFTER 2 WORD READ STARTING AT LOC 177776 


CONTENTS OF LOC 200000 WRONG AFTER 2 WORD READ 
STARTING AT LOC 177776 


sERROR AFTER 2 WORD READ STARTING AT LOC 377776 


:"MEXO" DIDN'T CLEAR AFTER 2 WORD STARTING AT LOC 377776 


SEQ 0039 


Ci 
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003256 042145 DH5S1 
003260 043346 D151 
003262 043612 DF51 


sERROR 56 


003264 036162 EMS6 :"MEX1" DIDN'T SET AFTER 2 WORD READ STARTING AT LOC 377776 
003266 042145 
003270 043346 
003272 043612 


003274 036255 CONTENTS OF LOC 400000 WRONG AFTER 2 WORD READ 
sSTARTING AT LOCATION 377776 
003276 041167 


003300 043204 
003302 043616 


003304 036371 ERROR RETURNING SECTOR TO PDP-11 MODE USING A 


:2 WORD WRITE 
003306 040323 
003310 043040 
003312 043522 


003314 036465 ERROR WRITING TEST SECTOR(S) 
040465 
043072 

003322 043532 


; ERROR 
003324 036522 ERROR READING TEST SECTOR(S) 
003326 
003330 
003332 043532 
; ERROR 


003334 036557 DRIVE DIDN'T RETURN TO CYL O FROM THE MAXIMUM 
CYL ON CONTROLLER POWER FAIL 
003336 042242 


003340 043366 
003342 043622 


; ERROR 


003344 036673 CONTENTS OF MEMORY CHANGED DURING POWER 
FAIL WHILE READING THE DISK 
003346 040720 


003350 043142 
003352 043542 
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sERROR 65 


003354 037000 EM65 ;*SUOL' SET WITH DRIVE DISABLED 
003356 040775 DH14 
003360 043156 DT14 
003362 043542 DF11 


sERROR 66 


003364 037037 EM66 ;"SUOL' NOT SET WITH DRIVE ENABLED 
003366 040775 DH14 
003370 043156 DT14 
003372 043542 DF11 


67 


003374 037101 EM67 ;"SUWP’ NOT SET WITH DRIVE SET TO ‘READ ONLY’ 
003376 040775 DH14 
003400 043156 DT14 
003402 043542 DF11 


ERROR 70 


003404 037156 EM70 ;"SUWP* SET WITH DRIVE SET TO ‘READ/WRITE' 
003406 040775 DH14 
003410 043156 DT14 
003412 043542 DF11 


sERROR 71 
003414 037230 EM71 ;*SUWP* SET WITH RP11 ro LOCKOUT’ SET, CYLINDER 


;LOA'S = 0, AND RPCA = 
003416 042327 DH71 
003420 043404 DT71 
003422 043622 DF63 


72 


003424 037344 EM72 ;"SUWP* SET WITH RPCA = 2 & CYL LOA'S = 0 
042327 DH71 
043404 DT71 

003432 043622 DF63 


ERROR 73 


003434 037415 eit ;"SUWP* NOT SET; RPCA = VALUE IN CYL LOA'S 
H 
DT71 
003442 043622 DF63 


74 
003444 037467 EM74 :"SUWP* SET WITH RPCA ONE GREATER THAN CYL LOA VALUE 


003446 042327 DH71 
003450 043404 D171 
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003452 043622 DF63 
sERROR 75 


003454 037553 EM75 ;"SUWP' SET WITH DRIVE LOA SWITCHES EQUAL SELECTED DRIVE 
003456 040775 
003460 043156 
003462 043542 


; ERROR 


003464 037646 DRIVE HAS GONE OFFLINE 
003466 040323 
003470 043040 
003472 043522 


7 ERROR 


003474 037675 :DRIVE IS UNSAFE 
040323 
043040 

003502 043522 


003504 037715 DRIVE TIMED OUT 


003512 043522 
7 ERROR 


003514 037735 CONTROLLER TIMED OUT 
003516 040323 
003520 043040 
003522 043522 


003524 037762 ;DATA COMPARE ERROR 
003526 042414 
003530 043422 
003532 043626 


003534 040005 ;DATA COMPARE ERROR (MEMORY MANAGEMENT ENABLED) 
003536 042414 
003540 043450 
003542 043636 


003544 000000 DATA COMPARE ERROR DETAIL LINE 
003546 000000 
003550 043504 
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CZRPYD.P11 22-APR-78 14:42 ERROR POINTER TABLE SEQ 0043 


2143 003552 043652 DF104 
2144 
sERROR 105 
003554 000000 0 :DATA COMPARE ERROR SUMMARY LINE 
003556 042717 DH195 


003560 043512 DT105 
003562 043516 DF1 


sERROR 106 
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2154 003564 040064 EM106 ;"ERR' DIDN'T SET WITH ‘WCE’ 
003566 040775 DH14 
003570 043156 DT14 
003572 043542 DF11 


ERROR 107 
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003574 040120 ;'HE' DIDN'T SET WITH ‘PROG' 
003576 040775 
003600 043156 
003602 043542 


ERROR 110 


003604 000000 0 sUNSUCESSFUL AFTER 3 RETRIES 
003606 042745 DH110 

003610 000000 0 

003612 000000 0 


ERROR 111 


003614 000000 0 SUCESSFUL AFTER ‘N' RETRIES 
003616 043000 DH111 

003620 043514 DT111 

003622 043516 DF1 


ERROR 112 


003624 040154 ;DRIVE UNSAFE AFTER POWER FAIL 
040323 
043040 

003632 043522 


003634 040212 ;"SUWP" NOT SET WITH DRIVE LOA SWITCHES GREATER THAN SELECTED DR 
003636 040775 
003640 043156 
003642 043542 
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22-APR-78 14:42 ERROR POINTER TABLE SEQ 0046 


STREETER EAE EEE EEE EEE RETAKE EKER AERA REEREEHEEEEE 


-SBTTL START OF PROGRAM 


STREET EEA ERE TERETE KRARAERA KERR 


on 


003644 


003710 


003712 
003716 
003720 
003724 
003726 


003732 


004030 


004036 
004042 
004050 
004056 
004064 
004072 


004074 


004120 
004124 


012737 
000402 
005037 
005037 
000411 
012737 
000402 
005037 
012737 
000005 


012706 
005026 
022706 
001374 
012706 


012737 


012737 


013746 
012737 
012737 
012737 
022777 
001012 


000403 


012637 
023737 


177777 


001216 
001206 


177777 


001216 
177777 


001100 
001140 
001100 
021646 


004030 


000004 
004076 
177570 
177570 
177777 


004104 
000176 
000174 
000004 


000042 


001216 


001216 


001206 


000020 


175046 


001140 
001142 


000046 


START3: 


START1: 
STRTIA: 


START4: 


START2: 
STRT2A: 
START: 
-SBTTL 


#-1,BUSADR 
STRTIA 
@#BUSADR 
a#CNTRLC 


START 
#-1,BUSADR 
STRT2A 
@#BUSADR 
#-1,CNTRLC 


SET BUSADR FLAG 


CLR BUSADR FLAG 
;NO CONVERSATION MODE 


[SET BUSADR FLAG 
CLR BUSADR FLAG 


SET CONVERSATION MODE FLAG 
;CLEAR THE BUS 


INITIALIZE THE COMMON TAGS 


;:CLEAR THE COMMON TAGS (SCMTAG) AREA 


MOV #SCMTAG,R6 
CLR (R6)+ 


oo 
#STACK,SP 
ss INITIALIZE A FEW VECTORS 
V 


CMP opens ; DONE? 


::FIRST LOCATION TO BE CLEARED 
7;CLEAR MEMORY LOCATION 


;;LOOP BACK IF NO 
;;SETUP THE STACK POINTER 


#SSCOPE ,a#IOTVEC ;;10T VECTOR FOR SCOPE ROUTINE 
#340 ,a#1OTVEC+2 7sLEVEL 7 


#SERROR ,A#EMTVEC 


:;EMT VECTOR FOR ERROR ROUTINE 


#340, ,Q#EMTVEC+2 = LEVEL 7 
#STRAP ,Q@#TRAPVEC ;;TRAP VECTOR FOR TRAP CALLS 
#340 ,Q#TRAPVEC+2;LEVEL 7 


SENDCT,SEOPCT 
STIMES 
SESCAPE 

#1, SERMAX 

#., SLPADR 

#. , SLPERR 


MOV 
77SIZE FOR A HARDWARE SWITCH REGISTER. 


3:SETUP END-OF-PROGRAM COUNTER 

;: INITIALIZE NUMBER OF ITERATIONS 

:;CLEAR THE ESCAPE ON ERROR ADDRESS 

;;ALLOW ONE ERROR PER TEST 

is INITIALIZE THE LOOP ADDRESS FOR SCOPE 
;SETUP THE ERROR LOOP ADDRESS 

IF NOT FOUND OR IT IS 


;;EQUAL TO A ‘’=1"", SETUP FOR A SOFTWARE SWITCH REGISTER. 


@#ERRVEC,-(SP) 
#64$ ,a#ERRVEC 
#DSWR,SWR 
#ODISP,DISPLAY 
#-1,aSWR 

66$ 


65$ 
#65$, (SP) 


#SWREG, SUR 


#DISPREG, DISPLAY 


(SP)+,a#ERRVEC 
a#42 ,a#46 


7; SAVE ERROR VECTOR 

3:SET UP ERROR VECTOR 

7; SETUP FOR A HARDWARE SWICH REGISTER 
32:AND A HARDWARE DISPLAY REGISTER 

7; TRY TO REFERENCE HARDWARE SwWR 
;:BRANCH IF NO TIMEOUT TRAP OCCURRED 
7;AND THE HARDWARE SWR IS NOT = -1 
;:BRANCH IF NO TIMEOUT 

7:SET UP FOR TRAP RETURN 


::POINT TO SOFTWARE SWR 
7 RESTORE ERROR VECTOR 
;ACT11 AUTO MODE? 
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CZRPYD.P11 
004132 


004146 
004152 


004446 


004450 
004452 


22-APR-78 1 


001405 
005227 
001002 
104401 
004737 


005737 
001006 
023727 
001005 
104406 
000403 
112737 


004737 


012702 
010146 
104403 

001 


177777 


043656 
020416 


000042 
001140 


000001 


023452 
025700 
001112 
001260 
001266 
001270 
001272 
001264 
001264 


001262 


001304 


000625 
177777 


00020¢ 
027236 
000010 


000176 


001134 


001256 
001262 


001256 
001300 
001276 


001200 
001104 
001115 
001106 
001110 


001210 


001210 


174506 


TEST 


MACY11 30A(1052) 


INITIALIZE THE COMMON TAGS 


BEQ 


STARTS: 
- SBTTL 


C 
START6: 


STARTS 


64$ 
SWR,#SWREG 
65$ 


65$ 
#1,$AUTOB 


PC,RESLOR 
PC,SIZMEM 


MAXWC ,WC14 
a cae 
LMT8K ,WC14 
#177777,PATTRN 
#17777, TSTNMS 
PSW 


DRVBAD 
STIMES 
SESCAPE 
#SEOP BYPASS 


PC,GETADR 

PC RPINIT 
#202. ,MAXCYL 
“Ybor 


$ 
#405. ,MAXCYL 
#-1 


9$ 
#SWO7,aSWR 
START? 
,DRSTAT 

R1 

#8. oR2 


R1,-(SP) 


I 4 
22-APR-78 


14:43 PAGE 48 
SEQ 0047 


;YES, SKIP TITLE PRINTOUT 
sFIRST START ? 
;BR IF NOT 
; TYPE THE PROGRAM'S MAINDEC NUMBER AND NAME 
TUP THE TTY KEYBOARD 


KIN 7 SE 
GET VALUE FOR SOFTWARE SWITCH REGISTER 
TST a#42 


73 ARE WE RUNNING UNDER XXDP/ACT? 
;BRANCH IF YES 

; + SOF TWARE SWITCH REG SELECTED? 
BRANCH IF NO 

::GET SOFT-SWR SETTINGS 


:;SET AUTO-MODE INDICATOR 


sRESTORE THE LOADER 

SET MEMORY SIZE VARIABLES 

;CLEAR TOTAL ERROR COUNT 

:CLEAR OPERATOR SELECTED ADDRESS FLAG 
sOPERATOR SPECIFIED CYLINDER 
sOPERATOR SPECIFIED TRACK 

OPERATOR SPECIFIED SECTOR 

ASSUME THAT MAXIMUM WORD COUNT LESS THAN &K 
MAXIMUM WORD COUNT GREATER THAN LIMIT 
:BR IF NOT 

USE AN 8K MAXIMUM 

sENABLE ALL PATTERNS 

;SELECT TESTS 0 - 14 

sENSURE THE PRIORITY = 0 

;CLEAR OFFLINE/UNSAFE DRIVE BITS 

: INITIALIZE NUMBER OF ITERATIONS 
:CLEAR THE ESCAPE ON ERROR ADDRESS 

: INITIAL BYPASS ADDRESS 

PRESET ITERATION COUNT TO 1 

;ALLOW ONE ERROR PER TEST 

: INITIALIZE THE LOOP ADDRESS FOR SCOPE 
; SETUP THE ERROR LOOP ADDRESS 

;CLEAR MEMORY MANAGEMENT FLAG 

CLEAR THE PROCESSOR PRIORITY 

:CHECK THE RP11 ADDRESS 

FIND OUT WHICH DRIVES ARE ON SYSTEM 
ASSUME RPO2'S 

sWHICH DRIVES ? 

:BR IF THEY REALLY WERE RPO2'S 

;SET MAX CYLINDER FOR RPO3'S 

FIRST START ? 

:BR IF IT IS 

BYPASS DRIVE STATUS TYPEOUT ? 

:BR IF YES 

;"DRIVE STATUS’ 

CLEAR TABLE POINTER 

; COUNTER 


7:SAVE R1 FOR TYPEOUT 
:: TYPE DRIVE NUMBER 
::G0 TYPE~-OCTAL ASCII 
3: TYPE 1 DIGIT(S) 
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CZRPYD.P11 
004453 000 


004704 010046 


004706 104403 
004710 001 
004711 
004712 


001370 


027262 


027276 
001360 


027327 
027336 


027312 
001173 


001173 
001206 


026314 
001312 


000001 
001370 


001360 


027345 
017004 


001312 
027372 
016616 
001206 
000042 


000003 


017004 


001304 


001312 


000041 


MACY11 30A(1052) 


J 4 
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GET VALUE FOR SOFTWARE SWITCH REGISTER 


0 
DRVSTA(R1) 
7$ 


4$ 
ONLINE 
5$ 


3; SUPPRESS LEADING ZEROS 

;CHECK DRIVE'S STATUS 

sDRIVE IS OFFLINE OR NON-EXISTENT 
sDRIVE IS UNSAFE 

; "ONLINE' 


UNSAFE + "UN 
ATABIT(R1),DRVTYP ;SEE WHICH DRIVE TYPE 
$ RIF RPO3 


T 
START7: 
1$ 
PC,ENTPRM 
5$ 
1$: DRVSEL 
RO 


#1,R1 
2s: DRVSTA(RO) 
3$ 


:BR 
ATABIT (ROD DRVSEL 
R 


. 
. 


*RPO2' 
:"RPO3' 


7 'OFFLINE' 
; CR-LF 
: INCREMENT TABLE POINTER 
;DECREMENT THE COUNTER 
; CONTINUE 
7 CR-LF 
CONVERSATION MODE ? 
;NO--BRANCH 
: YES--GET PARAMETERS 
:GO TYPE DRIVES TO BE TESTED 
:NO DRIVES SELECTED 
sDETERMINE THE DRIVES THAT 

sARE AVAILABLE FOR TESTING 
s DRIVE —-? ? 

N 


IF 

SET SELECTION BIT FOR DRIVE 
INCREMENT DRIVE ADDRESS 

; COUNT 

;BR IF NOT ALL DRIVES CHECKED 
: "DRIVES TO BE TESTED* 

= DETERMINE PASSES TO MAKE AND 
> THE DRIVES TO BE TESTED 
sANY DRIVES SELECTED? 
3 YES--BRANCH 
3 "NONE' 
;G0 TO END OF PROGRAM 

; CONVERSATION MODE START ? 
;BR IF NOT 

sUNDER MONITOR CONTROL ? 


:BR IF NOT 
;LOADED BY RPO2/RPO3 ? 
:BR IF NOT 

sEXCLUDE DRIVE 0 FROM TESTING 
CHECK ON THE OTHER DRIVES 
;REPORT THE DRIVES TO BE TESTED 
;BR IF DRIVE IS NOT SELECTED 
:GIVE THIS DRIVE A PASS 

3;SAVE RO FOR TYPEOUT 

7; TYPE THE DRIVE NUMBER 

3:G0 TYPE--OCTAL ASCII 

7: TYPE 1 DIGIT(S) 

;; SUPPRESS LEADING ZEROS 

;MORE DRIVES? 


SEQ 0048 





aon 


CZRPYD.P11 
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004714 


005002 
005004 
005012 
005016 


005022 


005060 


22-APR-78 1 


001404 


043737 
000756 
113737 
104401 
013746 


104403 
001 


000137 


027377 


017004 
001206 
001176 
000001 
001306 


001176 
001306 


001310 


001176 
027401 
001176 


001173 


005064 


016776 


001306 
001312 


001312 


002500 


002502 


TEST 


8$: 
9$: 


C 
RSTRT1: 
M 


RSTRT2: 
RSTRT3: 


RESTART: 


DRVOK: 


MACY11 30A(1052) 
GET VALUE FOR SOFTWARE SWITCH REGISTER 


9$ 
COMMA 
RO 


7$ 
SENDCT,SEOPCT 
CNTRLC 

CHKDRV 

#1 ,DRVMSK 
DRVMSK ,DRVSEL 
DRVOK 

CHKDRV 

DRVMSK 

RSTRT2 

DRVBAD ,DRVSEL 


RSTRT1 
CHKDRV,DPB 

- TSTING 
CHKDRV,-(SP) 


#HOMSEK, DPB+2 
PC,RP11 

PC. DRVRDY 
TSTO 


K 4 
22-APR-78 


14:43 PAGE 50 
SEQ 0049 


:NO~~BRANCH 


; INCREMENT DRIVE NUMBER 

; CONTINUE 

;SETUP TEST COUNT 

;CLEAR CONVERSATION MODE FLAG 

s INITIALIZE THE CHECK DRIVE KEY 
;START TO CHECK DESIRED DRIVES 
31S THIS DRIVE SELECTED? 
7YES--GO CHECK IF DRIVE IS READY FOR TESTING 
sMOVE TO NEXT DRIVE NUMBER 
sPOSITION THE MASK 

7BR IF MORE DRIVES 

1 A aac BITS FOR ANY OFFLINE/UNSAFE 
;CONTINUE WITH CYCLE 

;PICKUP THE DRIVE NUMBER 
"TESTING WITH DRIVE ‘ 

3: SAVE CHKDRV FOR TYPEOUT 

7; TYPE THE DRIVE NUMBER 

::GO0 TYPE--OCTAL ASCII 

sz TYPE 1 DIGIT(S) 

——- LEADING ZEROS 

;RP11 ADDRESS 

;CLEAR THE RP11 

;HOME SEEK COMMAND 

;START THE COMMAND 

;WAIT FOR THE DRIVE TO FINISH 


;START THE PROGRAM 

-SBTTL #### TESTS #### 

ESP CSI SPST tier i i i reir reir iti i iii iii iii iii i iii i tii it titi i it 
*TEST 0 TEST "CLEAR® TERMINATION 


:*VERIFY THAT ‘CLEAR® TERMINATES AN OPERATION AND CAUSES CONTROLLER 
:*READY TO SET. 


ECS e SSIS STS T rire iri ir ii ii iii ili titi iii titi tii iit iti ii it iii t 
005064 TSTO: 
033737 001400 001276 


wr tnttatieat » TSTNMS 
R 


1S THIS TEST SELECTED 
IF YES 


005114 
005122 


005160 


012737 
013777 


012706 


005310 
005160 
005064 
000000 


001102 


001100 


001110 
001106 
001102 


174012 
001200 


001162 


TST1 
#TESTO,SLPERR 
#TSTO,SLPADR 
#0, STSTNM 


STSTNM,@DISPLAY 


#EXITO,BYPASS 
RPADR ,R4 
DPB+1 

DPB+3 

#100. ,STIMES 
#STACK,SP 


:GO TO THE NEXT TEST 

;SETUP THE ERROR LOOP ADDRESS 

;SETUP THE SCOPE LOOP ADDRESS 

: SETUP TEST NUMBER AND 

CLEAR THE ERROR FLAG (SERFLG) 

;LOAD THE TEST NUMBER INTO THE DISPLAY REGISTER 


;SETUP BYPASS ADDRESS 


:RP11E BUS ADDRESS 

;CLEAR ANY EXTENDED MEMORY BITS 
;CLEAR ‘MODE’ & "HDR' BITS 

7:00 100. ITERATIONS 

:SETUP THE STACK POINTER 
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CZRPYD.P11 
005164 


005276 
005300 


005302 


005306 


005310 


005340 
005346 


005460 


004737 


104003 


000005 
004737 
000004 


033737 
001002 
000137 
012737 
012737 
012737 


013777 


012737 


025654 


000200 
023240 


000001 
000001 
023240 
000200 


020416 


001402 
005724 


000001 
001102 


000003 


002506 
002504 
002502 
000004 


000004 
000004 


001340 


001276 


001110 
001106 
001102 


173566 
001200 


001162 


002504 
001204 


002506 
001110 


002502 


TEST ‘CLEAR* TERMINATION SEQ 0050 


PC,CLRP CLEAR THE RP11 
#BUF FER ,SBUF ;LOAD BUFFER ADDRESS 
#1,$WC SETUP WORD COUNT FOR 1 WORD 
SCYL CYLINDER 0 
$SEC ; TRACK & SECTOR 0 
#RDSEK ,DPB+2 READ COMMAND 
PC,RP11 : ISSUE THE COMMAND AND RETURN 
#WRDY,RPCS(R4) ;1S THE CONTROLLER READY ? 
1$ BR IF NOT 
PC, SAVRP ;STORE THE REGISTERS 
2 CAN'T START READ COMMAND 
EXx1TO sEXIT FROM TEST 
#CLEAR,RPCS(R4) ; ISSUE THE CONTROLLER CLEAR 
#CLEAR,RPCS(R4) ;CLEAR THE CONTROLLER AGAIN 
PC ,SAVRP sSTORE THE REGISTERS 
#RDY ,$RPCS 71S THE CONTROLLER READY ? 
EXITO BR IF IT IS 
3 ;"READY' DIDN'T SET AFTER ISSUING ‘CLEAR’ 
;DURING READ COMMAND 
;FORCE THE CONTROLLER READY 
PC, STKINT ;SETUP THE TTY KEYBOARD 


JSR 
EXITO: SCOPE ;LOOP ? 


eA A RR RRRRRRRRARARARERSARRRAAASASAASESESAALASEASASAS ELAR SLA SS SF | 


:*TEST 1 WRITE CHECK TEST 


s*THIS TEST VERIFIES THE WRITE CHECK LOGIC AND TO VERIFY THAT A WRITE 
:*CHECK ERROR CAN BE DETECTED. ‘FLOATING ONES" AND ‘FLOATING ZEROS" 
:*PATTERNS ARE USED TO TEST THE WRITE CHECK COMPARE LOGIC. 


PLERRR RARER A RARE AAA AAA AAA AAA AA AAAATA RAR AAAAAARER RETA E REE 
TST1: 
ee Pos TEST SELECTED 
‘ ; Y 
TST2 3GO TO THE NEXT TEST 
#TEST1,S$LPERR ;SETUP THE ERROR LOOP ADDRESS 
#TST1,$LPADR ;SETUP THE SCOPE LOOP ADDRESS 
#1,STSTNA ;SETUP TEST NUMBER AND 
;CLEAR THE ERROR FLAG (SERFLG) 
STSTNM,@DISPLAY ;LOAD THE TEST NUMBER INTO THE DISPLAY REGISTER 
#EXITI,BYPASS ;SETUP BYPASS ADDRESS 
RPADR,R4 ;RP11E BUS ADDRESS 
DPB+1 ;CLEAR ANY EXTENDED MEMORY BITS 
DPB+3 sCLEAR ‘MODE’ & ‘HDR’ BITS 
#100. ,STIMES 3:00 100. ITERATIONS 
#STACK,SP ;SETUP THE STACK POINTER 
$SEC ;CLEAR TRACK & SECTOR ADDRESS 
;CLEAR CYLINDER ADDRESS 
;SET WORD COUNT TO 1 SECTOR 
sSTARTING PATTERN NUMBER 
sFILL THE BUFFER WITH THE PATTERN 
;SETUP OUTPUT BUFFER 
#1$,SLPERR ;SETUP LOOP ON ERROR ADDRESS 
PC,CLRP ;CLEAR THE RP11 
#WRTISEK ,DPB+2 ;LOAD COMMAND 





Ci 
Ci 


mie” e FUNCTIONAL LOGIC & R/W 


005466 


005722 


005724 


22-APR-78 


004737 
0 


000004 


14:42 


022770 
023664 
023240 
100000 


005514 
025654 
000007 
022770 
023664 
023240 
100000 


025654 


001204 


177777 
043656 
000400 


000002 
005626 
025654 
022770 
023664 


023240 
000010 


100000 


001204 
000012 


001340 


001110 
002502 


001340 


000011 


001110 


001336 


001340 


000012 
001204 


mM 4 
TEST MACY11 30A(1052) 22-APR-78 14:43 PAGE 52 
11 WRITE CHECK TEST SEQ 0051 


PC,RP11 WRITE THE SECTOR WITH THE TEST PATTERN 
PC, CONRDY WAIT FOR THE OPERATION TO COMPLETE 
PC ,SAVRP SAVE THE REGISTERS 
#ERR,SRPCS :DID AN ERROR OCCUR ? 
3$ BR IF NOT 
6 ERROR OCCURED WRITING WRITE CHECK TEST PATTERN 
#3$,SLPERR CHANGE LOOP ON ERROR ADDRESS 
PC,CLRP CLEAR THE RP11 
#WRICHK,DPB+2 ;LOAD WRITE CHECK COMMAND 
PC,RP11 >CHECK THE SECTOR JUST WRITTEN 
PC, CONRDY WAIT FOR WRITE CHECK TO COMPLETE 
PC ,SAVRP sSTORE THE REGISTERS 
#ERR,SRPCS CHECK OK ? 
4$ :BR IF OK 
5 ERROR ATTEMPTING TO CHECK TEST PATTERN 
PC,CLRP ;CLEAR THE RP11 
R1 :SETUP TO CLEAR BUFFER 
R2 ;BUFFER INDEX 
PATNUM, #9. ; "FLOATING 1° PATTERN ? 
5$ BRANCH IF NOT 
#-1,R1 sFILL BUFFER WITH ONES 
a ,BUFFER(R2) sFILL BUFFER WITH PATTERN IN R1 
#256. ,R2 ;SEE IF FINISHED 

6$ BR IF FINISHED 
#2,R2 ; INCREMENT THE INDEX 
5$ ; CONTINUE 
#6$,SLPERR CHANGE THE LOOP ON ERROR ADDRESS 
PC,CLRP CLEAR THE RP11 
PC,RP11 ;CHECK THE SECTOR AGAIN, ERROR SHOULD OCCUR 
PC, CONRDY WAIT FOR THE WRITE CHECK TO COMPLETE 
PC,SAVRP :STORE THE REGISTERS 
#B1TO3,$RPER ;D1D WRITE CHECK ERROR SET? 
7$ BRANCH IF YES 
6 ;WRITE CHECK ERROR DID NOT SET 
8$ BYPASS REST OF TEST 

7$: #ERR,SRPCS ;DID ‘ERR’ SET ? 
8$ :BR IF IT SET 
106 s"ERR® DIDN'T SET WITH ‘WCE’ 

8$: PATNUM, #10. sFLOATING A ZERO ? 
EXIT1 :BR IF ZERO 
#10.,PATNUM :"FLOATING ZERO* PATTERN 

BR 1$ :D0 THE TEST AGAIN 
EXIT1: SCOPE ;LOOP ? 


SPRUE EEE AEA AA RARE 


s*TEST 2 PARTIAL SECTOR WRITE TEST 


:*CHECK THE ABILITY OF THE RP11E TO CLEAR THE REMAINDER OF A SECTOR 
:*ON A PARTIAL WRITE OPERATION. A SECTOR OF ALL ONES IS WRITTEN AND 
:*THEN A TWO WORD WRITE OPERATION IS PERFORMED. THE SECTOR IS THEN 
;*READ BACK AND VERIFIED. THE FIRST TWO WORDS SHOULD BE ONES AND 
:*THE REST SHOULD BE ZEROS. 


SRA RARE EEE AAA AREA AAA AAA AAR AARAAAAARAAAAAAARAAAAAAEAEAEEE 


is12: 





C2 
CZ 
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005754 


005762 
005770 


22-APR-78 1 
033737 


012737 
013777 


001004 
022737 





001404 
006402 


000002 
001102 


100000 


006132 


023240 


100000 


006214 


100000 


177777 
177777 


001276 


001110 
001106 
001102 


173152 
001200 


001162 
001110 
002506 
002504 
001204 
002502 
001340 


001110 


002504 
002502 
001340 


001110 


002504 
002502 


001340 


043656 
043660 


TEST2: 


1$: 


28: 


3$: 


MACY11 30A(1052) 
PARTIAL SECTOR WRITE TEST 


BITS+<$TN*2>, TSTNMS 
+6 BR 


TST3 
#TEST2,SLPERR 
#TST2,$LPADR 
#2, STSTNM 


STSTNM,@DISPLAY 


#EXIT2,BYPASS 
RPADR ,R4 
DPB+1 

DPB+3 

#100. ,STIMES 
#STACK,SP 
#TEST2,SLPERR 
PC,CLRP 

#BUF FER, $BUF 
#256. , SWC 
$SEC 

SCYL 

#13. ,PATNUM 
PC,SETBUF 
#WRTSEK ,OPB+2 
PC,RP11 

PC, CONRDY 

PC ,SAVRP 

+ Mapienaeta 


4 

EXIT2 
#1$,SLPERR 
PC,CLRP 
PC, SETBUF 


#2, SWC 
#WRTSEK ,DPB+2 
PC,RP11 
PC,CONRDY 


PC ,SAVRP 
#ERR,SRPCS 
2$ 


7 

EXIT2 
#2$,SLPERR 
PC,CLRP 
#256. , SWC 
#ROSEK ,DPB+2 
PC,RP11 
PC, CONRDY 
PC ,SAVRP 
#ERR,SRPCS 
3$ 


17 


EXIT2 
#177777 BUFFER 


4$ [BR 
#177777 ,BUFFER*2 


N 4 
22-APR-78 


14:43 PAGE 53 
SEQ 0052 


he A ee TEST SELECTED 


I 
3GO0 TO THE NEXT TEST 
;SETUP THE ERROR LOOP ADDRESS 
> SETUP THE SCOPE LOOP ADDRESS 
;SETUP TEST NUMBER AND 
;CLEAR THE ERROR FLAG (SERFLG) 
;LOAD THE TEST NUMBER INTO Dts DISPLAY REGISTER 
SETUP BYPASS ADDRESS 
;RP11E BUS ADDRESS 
CLEAR ANY EXTENDED MEMORY BITS 
sCLEAR ‘MODE’ & ‘HDR’ BITS 
3:00 100. ITERATIONS 
;SETUP THE STACK POINTER 
;SETUP INITIAL LOOP ON ERROR ADDRESS 
sCLEAR THE RP11 
;LOAD BUFFER ADDRESS 
sWORD COUNT - 1 SECTOR 
;CLEAR SECTOR/TRACK ADDRESS 
;CLEAR CYLINDER ADDRESS 
sONE'S PATTERN NUMBER 
;LOAD THE PATTERN INTO THE BUFFER 
;WRITE COMMAND 
[WRITE THE SECTOR 
sWAIT FOR THE WRITE TO COMPLETE 
sSTORE THE REGISTERS 
3D1D AN ERROR OCCUR ? 
;BR IF NOT 
sERROR OCCURED DURING WRITE 
;BYPASS REST OF TEST 
; CHANGE LOOP ON ERROR ADDRESS 
sCLEAR THE RP11 
;LOAD ONE'S PATTERN INTO THE BUFFER 
32 WORD TRANSFER 
;CHANGE COMMAND TO WRITE 
WRITE 
;WAIT FOR CONTROLLER READY 
sSTORE THE REGISTERS 
3 OR ? 
7BR IF NOT 
sERROR WRITING THE PARTIAL SECTOR 
;BYPASS THE REST OF THE TEST 
; CHANGE THE ERROR LOOP ADDRESS 
;CLEAR THE RP11 
; CHANGE THE WORD COUNT 
;READ COMMAND 
;READ THE SECTOR 
sWAIT FOR CONTROLLER READY 
sSTORE THE REGISTERS 
7D1D AN ERROR OCCUR ? 
7BR IF NOT 
sERROR OCCURED READING SECTOR 
sBYPASS REST OF TEST 
>; COMPARE steer WORD SHOULD BE ONES 


IF NO 
CHECK THE SECOND WORD 


CZ 
CZ 
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001407 5$ :BR IF OK 
012737 177777 001124 4$: #177777,$GDDAT ;EXPECTED DATA 
013737 043656 001126 BUFFER,SBDDAT ;ACTUAL DATA 
104011 11 DATA COMPARE ERROR IN FIRST 2 WORDS 
043662 5$: #BUFFER+4 ,RO STARTING ADDRESS OF LAST PART OF THE BUFFER 
000376 254.,R1 WORD COUNT 
6$: REMAINDER OF SECTOR SHOULD BE ZEROS 
7$ BRANCH IF NOT 
;DECREMENT THE CUNT 
ey NOT FINISHED 


XIT2 EXIT 

177776 001126 - -2(RO) , SBDDAT s INCORRECT DATA 

001124 SGDDAT sEXPECTED DATA (ZEROS) 

001122 RO, $BDADR ;ADDRESS OF INCORRECT CHARACTER 

000002 001122 #2,$BDADR ;DECREMENT THE ADDRESS 

104012 12 ;DATA FOUND IN AREA OF SECTOR 
;WHICH SHOULD HAVE BEEN CLEARED 
;BY A ONE WORD WRITE 
006400 000004 EXIT2: SCOPE 


FERRER ARERR EERE AREER EE EAE EEE EAE EERE EREEARRAEKERAEERE 


SeTEST 3 "EOP TEST 


:*TEST THAT ‘EOP’ SETS WHEN THE CONTROLLER TRIES TO WRITE BEYOND THE 
s*LIMITS OF THE DRIVE. THE FIRST SECTOR OF THE PACK IS WRITTEN WITH 
:*ZEROS; THEN A TWO SECTOR WRITE OF ALL ONE'S IS ISSUED FOR THE MAXIMUM 


s*CYLINDER, HEAD 19, SECTOR 9. ‘EOP* AND THE ERROR BITS IN ‘RPCS' SHOULD 
:*BE SET. THE FIRST SECTOR OF THE PACK IS CHECKED TO MAKE SURE THAT IS 
:*STILL CONTAINS ZEROS. 


waht Pee P PPR R RRR REPRE RRR SARRRRERASSASEASSALSALS ELE RES EASA SSSA SE SS 
006402 TST3: 
006402 033737 001406 001276 BITS+<$TN*2>,TSTNMS ;1S THIS TEST SELECTED 
006410 - +6 BR IF YES 
006412 007060 TST4 :GO TO THE NEXT TEST 
006416 006476 001110 #TEST3,SLPERR ;SETUP THE ERROR LOOP ADDRESS 
006424 006402 001106 #TST3,SLPADR :SETUP THE SCOPE LOOP ADDRESS 
006432 012737 000003 001102 #3,S$TSTNM ;SETUP TEST NUMBER AND 
CLEAR THE ERROR FLAG (SERFLG) 
013777 001102 172474 STSTNM,@DISPLAY ;LOAD THE TEST NUMBER INTO THE DISPLAY REGISTER 
001200 #EXIT3,BYPASS ;SETUP BYPASS ADDRESS 
RPADR,R4 :RP11E BUS ADDRESS 
DPB+1 :CLEAR ANY EXTENDED MEMORY BITS 
DPB+3 BITS 
001162 M #25. ,STIMES $3 
: #STACK,SP :SETUP THE STACK POINTER 
001110 #TEST3,SLPERR ;INITIAL LOOP ON ERRORR ADDRESS 
CLRP [CLEAR THE RP11 
062504 256. , SWC ;SET WORD COUNT TO 1 SECTOR 
002506 ;SETUP OUTPUT BUFFER 
NUM : SETUP FOR PATTERN ZERO 
PC ,SETBUF ;LOAD ZEROS INTO THE BUFFER 
SSEC SET SECTOR & TRACK TO ZERO 
SCYL :SET CYLINDER TO ZERO 
006550 112737 000003 002502 #WRTSEK,DPB+2 ;WRITE COMMAND 
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006556 004737 022770 PC,RP11 sWRITE ZEROS IN CO, TO, SO 
023664 PC,CONRDY ;WAIT FOR THE ORDER TO COMPLETE 
023240 PC,SAVRP sSTORE THE REGISTERS 
100000 001340 #WERR,SRPCS 3D1D AN ERROR OCCUR ? 
1$ 3BR IF NOT 
4 sERROR OCCURED DURING SETUP 
EXIT3 ;BYPASS REST OF TEST 
006606 001110 : #1$,SLPERR ; CHANGE LOOP ON ERROR ADDRESS 
PC, CLRP ;CLEAR THE RP11 
001204 #13. ,PATNUM ;ONE'S PATTERN INDEX 
PC, SETBUF ;LOAD THE PATTERN INTO THE BUFFER 
002504 . ;CHANGE WORD COUNT TO 2 SECTORS 
002510 P ;SELECT THE DRIVE'S MAXIMUM CYLINDER 
002512 . SSE sSELECT SECTOR 9 
002513 . 7SELECT HEAD 19 
;START THE READ 
PC, * CONRDY sWAIT FOR CONTROLLER READY 
PC,SAVRP s;STORE THE RP11 REGISTERS 
000002 001336 #B1T01,$RPER 3D1D EOP ERROR SET? 
2s ;BRANCH IF SET 
13 :"EOP® DIDN'T SET 
3$ ;CHECK RPCA 
100000 001340 : #ERR,SRPCS ;D1D THE ERROR FLAG SET? 
3$ ;BRANCH IF SET 
sERROR DID NOT SET AFTER GENERATING ‘EOP’ 
001346 : ;SEE IF THE CYLINDER ADDRESS REGISTER WAS CLEARED 
$ ;BR IF CLEARED 
15 ;"RPCA® NOT CLEARED BY ‘EOP’ 
001354 001210 :  eteematctie ee EQUAL TO THE MAXIMUM CLINDER 
3 I Is 
16 ;SUCA NOT CORRECT AFTER EOP ERROR 
006746 001110 : #5$,SLPERR ; CHANGE LOOP ON ERROR ADDRESS 
PC,CLRP ;CLEAR THE RP11 
002504 #2,$WC ;WORD COUNT 
$SEC sCLEAR SECTOR/TRACK ADDRESS 
$CYL ;CLEAR THE CYLINDER ADDRESS 
002502 #ROSEK ,DPB+2 ; CHANGE COMMAND TO READ 
PC,RP11 sEXECUTE THE COMMAND 
PC, CONRDY sWAIT FOR CONTROLLER READY 
PC, SAVRP ;STORE THE REGISTERS 
100000 001340 #ERR,SRPCS ;WERE THERE ANY ERRORS? 
6$ sBRANCH IF NOT 
17 ;ERROR ENCOUNTERED ON 2 WORD READ 
EXIT3 ;OF FIRST SECTOR ON THE PACK 
043656 001126 : BUFFER,SBDDAT ;GET FIRST WORD OF BUFFER 
001126 SBODAT ;DOES 1ST SECTOR STILL CONTAIN ZEROS? 
;BRANCH IF YES 
001124 sZEROS WERE EXPECTED 
007054 104020 0 ;CONTENTS OF THE FIRST SECTOR OF THE 
sPACK CHANGED AFTER FORCING EOP 
007056 000004 EXIT3: SCOPE 


Pitt t PP PPP RRR RR RRR RRR RRRRRRRRRRARR REE SSSSALE SELLERS ERLE RLS R EE EE SO 


s*TEST 4 TEST "PROG ERROR 
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s*VERIFY THAT THE RP11E GENERATES A ‘PROG’ ERROR IF A COMMAND IS ISSUED 
;*WHILE THE CONTROLLER IS BUSY. 


pPRARA ARERR AAA AAA A TAA AA AAA TAA TA TATA RETA H RAAT TERT R eRe E REE 
007060 TST4: 
007060 001410 001276 BITS+<S$IN*2>,TSTNMS ;1S THIS TEST SELECTED 
007066 - +6 :BR IF YES 
007070 007310 TST5 :GO TO THE NEXT TEST 
007074 007154 001110 #TEST4,SLPERR ;SETUP THE ERROR LOOP ADDRESS 
007102 007060 001106 #TST4,$LPADR sSETUP THE SCOPE LOOP ADDRESS 
007110 012737 000004 001162 #4,S3TSTNA ;SETUP TEST NUMBER AND 
CLEAR THE ERROR FLAG (SERFLG) 
007116 013777 001102 172016 STSTNM,@DISPLAY ;LOAD THE TEST NUMBER INTO THE DISPLAY REGISTER 
001200 WEXIT4,BYPASS ;SETUP BYPASS ADDRESS 
RPADR ,R4 :RP11E BUS ADDRESS 
DPB+1 ;CLEAR ANY EXTENDED MEMORY BITS 
DPB+3 CLEAR ‘MODE’ & ‘HDR’ BITS 
001162 M #100. ,STIMES ::D0 100. ITERATIONS 
#STACK,SP :SETUP THE STACK POINTER 
PC,CLRP ;CLEAR THE RP11 
$SEC ;CLEAR THE SECTOR = TRACK ADDRESSES 
SCYL ;CLEAR THE CYLINDER ADDRESS 
002506 #BUFFER ,SBUF ;SETUP BUFFER ADDRESS 
002504 #1024. , SWC SETUP WORD COUNT 
002502 #ROSEK ,DPB+2 READ COMMAND 
PC,RP11 : ISSUE THE COMMAND 
001220 #1. STALLT ;LOAD STALL VALUE 
PC, STALL STALL FOR 1 MILLISECONDS 
000004 #RDSEK,RPCS(R4) ; ISSUE READ COMMAND WHILE BUSY 
PC, SAVRP :STORE THE REGISTERS 
002000 001336 #B1T10,SRPER :D1D PROGRAM ERROR SET? 
1$ ;BRANCH IF SET 
007256 104021 21 ;PROGRAM ERROR DID NOT SET WHEN A 
READ COMMAND WAS ISSUED WHILE 
THE DEVICE WAS BUSY 
007260 000412 EXIT4 BYPASS REST OF TEST 
040000 001340 1$: #HE ,SRPCS :*WE’ SET ? 
23 :BR IF NOT 
107 :"HE' DIDN'T ae! WITH ‘PROG’ 
100000 001340 2%: #ERR,SRPCS :DID ‘ERR’ SET 
EXIT4 BRANCH IF SET 
22 :"ERR’ DID NOT SET WITH PROGRAM ERROR 


E 
007306 000004 EXIT4: SCOPE 


PETRA AAA AEA AAA A AAA ARE AAARAAAA AREA AATAAREKAAAREAAARAAAKEREE 


Py 


*TEST 5 "HEADER NOT FOUND' TEST 


;*UNFORMAT THE FIRST SECTOR ON THE PACK AND THEN READ IT BACK. VERIFY 
;*THAT READ AND WRITE HEADER OPERATIONS WILL TRANSFER DATA CORRECTLY. 

s*ISSUE A WRITE COMMAND TO SECTOR ZERO; THIS SHOULD CAUSE "HEADER NOT 

;*FOUND' TO SET. REFORMAT THE SECTOR. 


EPI SITS IIT T tii t ii iit it iii iii titi iri i iii iitiiiiiiiitiiiiiit 
007310 TSTS: 
007310 033737 001412 001276 BIT BITS*+<STN*2>,TSTNMS ;I1S THIS TEST SELECTED 
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007316 001002 . +6 ; YES 
000137 010034 TST6 3G THE NEXT TEST 
012737 007404 001110 #TESTS,SLPERR = ; THE ERROR LOOP ADDRESS 
012737 007310 001106 #TST5,SLPADR ; THE SCOPE LOOP ADDRESS 
007340 012737 000005 001102 #5. STSTNM ; TEST NUMBER AND 
7 THE ERROR FLAG (SERFLG) 
007346 013777 001102 171566 STSTNM,@DISPLAY ;LOAD THE TEST NUMBER INTO THE DISPLAY REGISTER 
001200 #EXITS BYPASS SETUP BYPASS ADDRESS 
RPADR ,R4 :RP11E BUS ADDRESS 
DPB+1 :CLEAR ANY EXTENDED MEMORY BITS 
DPB+3 CLEAR "MODE’ & ‘HDR’ BITS 
001162 M #100. ,STIMES 3:00 100. ITERATIONS 
: #STACK,SP :SETUP THE STACK POINTER 
001110 #TESTSSLPERR ; INITIAL LOOP ON ERROR ADDRESS 
PC, CLRP CLEAR THE RP11 
043656 #1, BUFFER ;SETUP INVALID HEADER IMAGE 
043660 #1, BUFFER+2 ; CYLINDER/TRACK 
043662 #1 ,BUFFER+4 : SECTOR 
002504 #3, SWC ;LOAD WORD COUNT 
SSEC ;CLEAR SECTOR/TRACK ADDRESS 
SCYL ;CLEAR THE CYLINDER ADDRESS 
002502 #MODE!HDR,DPB+2 ;'MODE' AND ‘HEADER’ BITS 
002502 WWRISEK,DPB+2 ;WRITE ORDER 
PC,RP11 sMISFORMAT SECTOR 0 
PC ,CONRDY sWAIT FOR THE OPERATION TO COMPLETE 
PC ,SAVRP STORE THE REGISTERS 
100000 001340 #WERR,SRPCS :D1D AN ERROR OCCUR ? 
1$ BR IF NOT 
23 ERROR OCCURED ATTEMPTING TO MISFORMAT SECTOR 0 
TST5B sBYPASS TEST & REFORMAT SECTOR 0 
007526 001110 : #1$,SLPERR CHANGE LOOP ON ERROR ADDRESS 
PC,CLRP CLEAR THE R?11 
002502 #RDSEK ,DPB+2 CHANGE COMMAND 
PC,RP11 sEXECUTE THE COMMAND 
PC, CONRDY ;WAIT FOR CONTROLLER READY 
100000 001340 #ERR,SRPCS ; ANY ERRORS? 
2$ BRANCH IF NOT 
104024 24 ERROR WHILE READING THE HEADER 
;0N SECTOR ZERO 
012737 000001 001124 : #1, $GDDAT EXPECTED RESULT 
RO ;CLEAR THE INDEX 
001124 043656 : SGDDAT,BUFFER(RO) ;CHECK DATA READ BACK 
4$ ;BRANCH ON NON COMPARE 
000002 #2,R0 [UPDATE MODIFIER 
000006 #6,R0 END OF BUFFER? 
BR IF NOT 
TSTSA ; CONTINUE yet a 
043656 001126 : BUF FER(RO) ,SBDDAT Sy BAD DAT 
25 :DATA DID NOT VERIFY AFTER READING 
; THE HEADER OF SECTOR ZERO 
007634 001110 : #TSTSA,SLPERR ; CHANGE LOOP ON ERROR ADDRESS 
J PC,CLRP CLEAR THE RP11 
002502 #URTSEK,DPB+2 : CHANGE COMMAND (AND CLEAR ‘MODE’ & HDR’) 
PC,RP11 sEXECUTE THE COMMAND 
PC, CONRDY ;WAIT FOR CONTROLLER READY 
007664 004737 023240 PC, SAVRP STORE THE REGISTERS 
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007670 


010032 


010034 


010150 


032737 


000004 


033737 


012737 
013777 


112737 


010000 


000001 


040000 


100000 


007742 


100000 


001414 
010370 
010130 
010034 
000006 


001102 


000015 


001334 


001336 


001340 


001340 


001110 


002502 
002502 


001340 


001276 


001110 
001106 
001102 


171042 
001200 


001162 


002502 


"HEADER NOT FOUND’ TEST SEQ 0057 


1$: #B1T12,$RPDS :DID HEADER NOT FOUND SET? 
2$ BRANCH IF YES 
26 :"HNF' DID NOT SET 
TST5B sBYPASS REST OF TEST 
28: #BITOO,SRPER ;DID DISK ERROR SET? 
3$ BRANCH IF YES 
27 :"DSK* DID NOT SET WITH "HNF * 
3$: WHE ,SRPCS :DID HARD ERROR SET? 
4$ BRANCH IF YES 
30 HARD ERROR NOT _ AFTER ‘HNF‘ 
4$: #ERR,SRPCS ;DID “ERR' SET 
TST5B BRANCH IF YES 
31 :"ERR' DID NOT SET WITH ‘HNF* 
#TSTSB,SLPERR ;CHANGE LOOP ON ERROR ADDRESS 
PC,CLRP ;CLEAR THE RP11 
BUFFER : SETUP HEADER IMAGE 
BUFFER+2 ;CYLINDER/TRACK = 0 
BUFFER+4 SECTOR = 0 
#MODE!HDR,DPB+2 ;'MODE* AND ‘HDR’ BITS 
#WWRTSEK,DPB+2 ;WRITE COMMAND 
PC,RP11 RESTORE THE HEADER 
PC, CONRDY ;WAIT FOR THE OPERATION TO COMPLETE 
PC, SAVRP STORE THE REGISTERS 
#ERR, SRPCS 4+ _ OCCUR ? 
E ERROR ATTEMPTING TO RESTORE HEADER 
EXITS: SCOPE 


PFET R AREA A AREA AAAE TARE RATER AAARAEARARAARERKReee 


*TEST 6 TEST COMMAND ISSUED TO A SEEKING DRIVE 


:*ISSUE A SEEK COMMAND AND WAIT FOR DONE TO SET. THEN ISSUE A READ 
:*COMMAND WHILE THE HEADS ARE STILL MOVING. THE RP11E SHOULD 
;*HOLD THE WRITE COMMAND TILL THE SEEK IS COMPLETE. 


SPUR AREA AREER AAA AAA AREA AERA AAA AARAAAARAAAKEAAAERE EEE 
TST6: 
BITS+<$SIN*2>,TSTNMS ;1S THIS TEST SELECTED 
+6 :BR IF YES 
TST? ;GO TO THE NEXT TEST 
#TEST6,SLPERR ;SETUP THE ERROR LOOP ADDRESS 
#TST6,SLPADR ; SETUP THE SCOPE LOOP ADDRESS 
#6,STSTNA :SETUP TEST NUMBER AND 
CLEAR Le ERROR FLAG (SERFLG) 
STSTNM,@DISPLAY ;LOAD THE TEST NUMBER INTO THE DISPLAY REGISTER 
#EXIT6, BYPASS SETUP BYPASS ADDRESS 
RPADR ,R4 ;RP11E BUS ADDRESS 
DPB+1 :CLEAR ANY EXTENDED MEMORY BITS 
DPB+3 CLEAR "MODE’ & ‘HDR" BITS 
#25. ,STIMES 3:00 25. ITERATIONS 
#STACK, SP ;SETUP THE STACK POINTER 
PC,CLRP CLEAR THE RP11 
SSEC ;SECTOR/TRACK 0 
SCYL CYLINDER 0 
WHOMSEK,DPB+2 ;HOME SEEK COMMAND 





G 5 
CZRPY-D, RP11-E ee at LOGIC & R/w TEST MACY11 30A(1052) 22-APR-78 14:43 PAGE 59 
CZRPYD.P11 22-APR-78 14:42 16 TEST COMMAND ISSUED TO A SEEKING DRIVE SEQ 0058 


010156 004737 022770 PC,RP11 ;D0 THE COMMAND 
PC ,DRVRDY sWAIT FOR DRIVE READY 
002510 P ; CHANGE CYLINDER TO CYLINDER 192 
002502 - ;SEEK COMMAND 
s INITIATE THE SEEK 
001220 #1, *STALLT ;LOAD STALL VALUE 
PC,STALL sSTALL FOR 1 MILLISECONDS 
000006 #-3,,RPWC(R4) ;SE1 WORD COUNT TO THREE WORDS 
000010 #BUFFER,RPBA(R4) ;BUFFER ADDRESS 
002502 #MODE!HDOR,DPB+2 ;SETUP TO READ THE HEADER 
000004 #READ,RPCS(R4) ;TRY TO DO A READ 
PC,DRVRDY sWAIT FOR DRIVE READY 
PC,SAVRP ;STORE THE REGISTERS 
000200 001340 #RDY,SRPCS ;DID CONTROLLER BECOME READY ALSO ? 
1$ ;BR IF NOT 
33 ;READ DIDN'T START DURING SEEK 
EXIT6 sEXIT 
023664 : PC,CONRDY ;WAIT FOR CONTROLLER READY 
023240 PC,SAVRP s;STORE THE REGISTERS 
100000 001340 #ERR,SRPCS ;ANY ERRORS? 
2$ ;BRANCH IF NO 
010314 104034 34 ;ERROR OCCURED DURING A READ ISSUED 
;WHILE THE DRIVE IS SEEKING 
010316 012737 014000 001124 : #<192.%32.>,$GDDAT ;EXPECTED CYLINDER VALUE 
043660 001126 BUFFER+2,$BDDAT ;RECEIVED DATA 
001124 001126 SGDDAT,$SBDDAT ;CORRECT ? 
2s 7BR IF NOT 
001124 SGDDAT sEXPECTED VALUE FOR SECTOR 
043662 001126 BUFFER+4,$BDDAT ;RECEIVED SECTOR 
001124 001126 SGDDAT,$BDDAT ;CORRECT ? 
EXIT6 ;BR IF OK 
E 35 ;HEADER DATA INCORRECT 
010366 000004 EXIT6: SCOPE 


SERRA AAA A ATER AAA TREK RARER ARERR eee eee 


TEST 7 TEST "NXME* BIT 


:*THE NON-EXISTENT MEMORY ERROR BIT ee TESTED BY ATTEMPTING TO READ 1 
:*WORD INTO LOCATION 760000. '‘NXME', ‘HE’, & 'ERR* SHOULD ALL BE SET. 


PSUR AAA AAA A AAA AARETET AAA AAA KERE RARER 
010370 TST?: 
033737 001416 001276 © eater Be TEST SELECTED 
.* BR 
010612 TST10 :GO TO THE NEXT TEST 
010464 001110 #TEST7,SLPERR ;SETUP THE ERROR LOOP ADDRESS 
010370 001106 #TST7, SLPADR : SETUP THE SCOPE LOOP ADDRESS 
012737 000007 001102 #7, STSTNM :SETUP TEST NUMBER AND 
CLEAR jam ERROR FLAG (SERFLG) 
013777 001102 170506 STSTNM,@DISPLAY ;LOAD THE TEST NUMBER INTO THE DISPLAY REGISTER 
001200 #EXIT7, BYPASS SETUP BYPASS ADDRESS 
RPADR,R4 ;RP11E BUS ADDRESS 
DPB+! :CLEAR ANY EXTENDED MEMORY BITS 
DPB+3 :CLEAR ‘MODE’ & ‘HDR® BITS 
010456 012737 000144 001162 #100. ,STIMES 7:00 100. ITERATIONS 
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010464 
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012706 


001100 


000004 


040000 


100000 


002504 


002501 
002506 
002502 


001336 


001340 


001340 


TEST?: 


2$: 


3$: 


MACYT1 ee ae 


TEST "NXME' 


#STACK SP 


#160000, SBUF 
#RDSEK ,DPB+2 
PC,RP11 

PC, CONRDY 
PC,SAVRP 
#B1T02,$RPER 
2$ 


36 

EXIT? 

#HE ,SRPCS 
3$ 


37 
#ERR, SRPCS 
EXIT? 


5 
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sSETUP THE STACK POINTER 
;CLEAR THE RP11 

WORD COUNT 
sSECTOR/TRACK ZERO 

: CYLINDER ZERO 
#MEX1!MEXO,DPB+1 


;LOAD BOTH EXTENDED MEMORY BITS 


;LOAD ADDR TO FORCE NON EX MEMORY 
TRY TO READ INTO THE LOCATION 

: INITIATE THE OPERATION 

WAIT FOR CONTROLLER READY 

: STORE THE REGISTERS 

:DID NON EX MEMORY SET ? 

BRANCH IF SET 

;"NXME" ERROR DIDN'T SET 

;DON'T CHECK THE RPCS BITS 

DID "HE' SET ON NON EX MEMORY 
BRANCH IF SET 

:"HE' DIDN'T SET 

:D1D ERR’ SET WITH NON EX MEMORY 
BRANCH IF SET 


SEQ 0059 


aon 


E 40 :"ERR® DION'T SET 
010610 000004 EXIT7: SCOPE 


FERRARA ERA EEE EAA AEE EEE ETE AAA AAA AEE RARE ARERREAARKERKEAEAEEE 


TATEST 10 SECTOR ADDRESSING TEST 


;*THE SECTOR ADDRESSING TEST TESTS THE CAPABILTIY OF THE RP11E TO LOCATE 

:*A SECTOR BY USING THE ‘SOT’ COUNTER (FOR ‘HDR’ OPERATIONS) AND TO LOCATE 
:*A SECTOR BY COMPARING THE HEADER CONTENTS AGAINST THE CYLINDER AND TRACK/ 
:*SECTOR ADDRESS REGISTERS (NORMAL MODE). THE TEST !S PERFORMED IN 3 PARTS. 


® 
1. WRITE ALL HEADERS i TRACK 0, CYLINDER 0 IN ASCENDING SEQUENCE 
FROM INDEX (0, 1, 2... 9). 


2. READ EACH HEADER, BEGINNING WITH SECTOR 0, AND VERIFY THAT THE 
SECTOR FIELD IN THE HEADER IS CORRECT FOR THE HEADER EXPECTED. 


VERIFY THAT THE *SOT* COUNTER AND THE SECTOR ADDRESS IN "RPDA* ARE 
EQUAL AND ARE THE EXPECTED VALUE. THE EXPECTED VALUE IS 1 GREATER 
THAN THE SECTOR READ. THE SECTOR ADDRESS REGISTER AND THE ‘SOT' 
ee BY THE TIME THE PROGRAM IS ABLE TO READ THE 


WRITE THE SECTOR'S ADDRESS IN THE DATA FIELD. 
OCTAL 12 IS WRITTEN.) 


CONTINUE THIS SEQUENCE FOR THE REMAINING SECTORS ON THE TRACK. 


3. READ THE DATA FROM EACH SECTOR USING A NORMAL (1.E., NON-HEADER) 
READ AND VERIFY THAT THE DATA IS CORRECT FOR THE EXPECTED SECTOR. 


(FOR SECTOR 0, AN 


a 


Be Be Be Be Be Be Be Be Se Be Be Be Se Be Be Be Be Be Be Be 


2974 ume emake tain anno 
2975 010612 TST10: 
2976 010612 033737 001420 001276 BIT BITS+<STN*2>,TSTNMS ;I1S THIS TEST SELECTED 

ES 


2977 010620 001002 BNE +6 :BR IF Y 
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010622 
010626 
010634 
010642 


010650 
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000137 
012737 
012737 
012737 


013777 


006237 


011532 
010706 
010612 
000010 


001102 
011530 


100000 


011530 


100000 


001124 
002512 
001124 


001124 
001124 


001124 
001350 
177417 
001126 


001110 
001106 
001102 


170264 
001200 


001162 
001110 


002506 
002504 


002502 
002502 


001340 


001110 
002502 


002502 
002504 


001220 


001350 
001340 


001124 
043662 


000012 


001126 
001126 


TEST10: 


1$: 
2$: 


3$: 


4$: 


MACY11 30A(1052) 


SECTOR ADDRESSING TEST 


TST11 
#TEST1IO,SLPERR 
#TST10,$LPADR 
#10,STSTNM 


STSTNM,@DISPLAY 
#EXITIO,BYPASS 
RPADR,R4 

DPB+1 

DPB+3 
#25.,STIMES 

#ST ACK, SP 
#TEST10, SLPERR 
PC CLRP 
#BUFFER,SBUF 
#30. , SWC 

SCYL 

SSEC 

PC,LODSEC 
#MODE ' HDR, DPB+2 
#WRTISEK ,DPB+2 
PC,RP11 
PC,CONRDY 
PC,SAVRP 
wee 


41 
EX1T10 


EC 
#2$,SLPERR 
PC,CLRP 
#MODE ! HOR ,DPB+2 
#RDSEK ,DPB+2 
#3, SWC 
PC,RP11 
PC, CONRDY 
PC, SAVRP 
#0,STALLT 
PC,STALL 
RPDA(RS), SRPDA 
HERR, SRPCS 


3 
42 
6$ 
SGDDAT 
SSEC,S$GDDAT 
SGDDAT ,BUFFER+4 
4$ 
43 
SGDDAT 
SGDDAT,#10. 
+6 


SGDDAT 
SRPDA, SBDDAT 
# €360,$BDDAT 
SBDDAT 


Lad 
nn 


I 5 
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:GO TO THE NEXT TEST 

;SETUP THE ERROR LOOP ADDRESS 
SETUP THE SCOPE LOOP ADDRESS 
;SETUP TEST NUMBER AND 

;CLEAR THE ERROR FLAG (SERFLG) 


;LOAD THE TEST NUMBER INTO THE DISPLAY REGISTER 


:SETUP BYPASS ADDRESS 

;RP11E BUS ADDRESS 

;CLEAR ANY EXTENDED MEMORY BITS 
;CLEAR ‘MODE’ & ‘HDR’ BITS 

3:00 25. ITERATIONS 

sRESET THE STACK POINTER 

LOOP ON ERROR ADDRESS 

;CLEAR THE RP11 

;SETUP BUFFER ADDRESS 

;SETUP WORD COUNT FOR 10 SECTORS 
;SETUP FOR CYLINDER 0 

; TRACK/SECTOR 0 

;SETUP FORMAT BUFFER 

;SETUP THE HEADER CONTROL BITS 
>THE COMMAND CODE 

;FORMAT THE TRACK 

;WAIT FOR THE ORDER TO COMPLETE 
:STORE THE REGISTERS 

sERROR ? 

7BR IF NOT 

s;ERROR TRYING TO FORMAT THE TRACK 
;BYPASS REST OF THE TEST 

;START CHECK WITH SECTOR 0 

; CHANGE THE LOOP ON ERROR ADDRESS 
;CLEAR THE RP11 

7SET "MODE® AND ‘HDR’ BITS 

; CHANGE THE OPERATION TO A READ 
; CHANGE THE WORD COUNT TO 3 
;READ THE SECTOR'S HEADER 

;WAIT FOR THE ORDER TO COMPLETE 
sSTORE THE REGISTERS 

;LOAD STALL VALUE 

;STALL FOR O MILLISECONDS 


sERR 
:BR IF NOT 

ERROR READING THE HEADER 
:BYPASS DATA CHECK 

CLEAR FOR EXPECTED DATA 
;MOVE SECTOR ADDRESS 
sCHECK THE SECTOR FIELD 
:BR IF CORRECT 


4 Ay CONTENTS OF THE ADDRESS REGISTER 


:SECTOR FIELD FROM HEADER NOT CORRECT 


: INCREMENT SECTOR ADDRESS FOR 'SOT' 
sEXCEED THE MAXIMUM ? 

:BR IF NOT 

;RESET COMPARISON VALUE 

sCHECK THE 'SOT' 

CLEAR THE OTHER BITS 

“SHIFT THE 'SOT' 


CHECK 
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011216 


011530 
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006237 


000004 


001126 


001124 
001126 


011270 


100000 


000005 
002512 
002512 


011424 


100000 


001120 
002512 
001124 


002512 
002512 


002512 


001122 
001122 
001126 


001122 


001110 


002502 


001340 


002502 
000012 


001110 
002504 


001124 
002502 


001340 


001120 
043656 


000012 
001124 


MACY11 30A(1052) 
SECTOR ADDRESSING TEST 


BR 
EXIT10: SCOPE 


SBDDAT 
SBDDAT 
SBDDAT 
SRPDA,SBDADR 
# C17,$BDADR 
SGDDAT,$BDDAT 


5$ 
SBDDAT ,SBDADR 
6$ 


45 
#6$,SLPERR 
PC,CLRP 
DPB+3 
PC,FILSEC 
#WRTISEK ,DPB+2 
PC,RP11 
PC, CONRDY 
PC,SAVRP 
#ERR,SRPCS 
7$ 


44 

#RDSEK ,DPB+2 
$SEC 
$SEC,#10. 

2$ 


#8$,SLPERR 
#256. ,$WC 
$SEC 

#10. ,SGDDAT 
#RDSEK ,DPB+2 


PC, ; CONRDY 
PC,SAVRP 
#ERR , SRPCS 
9$ 


17 

10$ 

SGDADR 
$SEC,SGDADR 
SGDDAT BUFFER 
10$ 


X1T10 
SSEC,SGDDAT 
8$ 


J. 5 
22-APR-78 


14:43 PAGE 62 
SEQ 0061 


SHIFT THE ‘SOT’ 

SHIFT THE ‘SOT’ 

SHIFT THE ‘SOT’ 

;CHECK THE SECTOR ADDRESS 

;LEAVE THE SECTOR ADDRESS 

1S THE "SOT" CORRECT ? 

;BR IF NOT 

:DOES THE SECTOR ADDRESS EQUAT THE ‘SOT’ ? 
BR IF IT DOES 

:'SOT' OR SECTOR ADDRESS IS NOT CORRECT 
CHANGE THE LOOP ON ERROR ADDRESS 
;CLEAR THE RP11 

CLEAR ‘MODE’ & ‘HDR* BITS 

;SETUP TO WRITE SECTOR ADDRESS AS DATA 
CHANGE OPERATION 

sWRITE THE SECTOR 

WAIT FOR THE ORDER TO COMPLETE 

STORE THE REGISTERS 

ERROR ? 

BR IF NOT 

ERROR TRYING TO WRITE SECTOR ADDRESS AS DATA 
CHANGE THE OPERATION 

: INCREMENT THE SECTOR 

:AT MAXIMUM SECTOR ADDRESS ? 

BR IF NOT 

CHANGE THE LOOP ON ERROR ADDRESS 
CHANGE WORD COUNT 

START WITH SECTOR ZERO 

;SECTOR ZERO PATTERN 

CHANGE OPERATION CODE 

;CLEAR THE RP11 

;READ THE SECTOR 

sWAIT FOR THE ORDER TO COMPLETE 

; STORE THE REGISTERS 

ERROR ? 

BR IF NOT 

ERROR TRYING TO READ THE SECTOR 
:BYPASS DATA CHECK 

;CLEAR FOR EXPECTED DATA 

EXPECTED DATA 

CORRECT CONTENTS ? 

:BR IF CORRECT 

;SECTOR PATTERN NOT CORRECT FOR SECTOR ADDRESS 
: INCREMENT SECTOR ADDRESS 

FINISHED SECTOR NINE ? 

:BR IF COMPLETED 

sNEXT SECTOR 

CONTINUE CHECKING 

;LOOP ? 


PAPAS PPR RRRRRRERSARR REAR ARARASEAA SA EAR EASES ESE SESE SESE REESE SSS S| 


TRACK ADDRESSING TEST 
;*TRACK ADDRESSING IS TESTED BY WRITING THE TRACK'S ADDRESS AS DATA IN 


VATEST 11 


:*SECTOR 0 OF EACH TRACK IN CYLINDER 0. 


SECTOR 0 IS THEN READ BACK AND 
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:*THE DATA IS CHECKED TO VERIFY THAT THE PROPER HEAD WAS SELECTED. 


STARR AREA AAA RAE EAE TAA AAA AAA AEE AERA KEAHAAEE EEE 
011532 TST11: 
033737 001422 901276 a ape conten name ia TEST SELECTED 
o# ; Y 
012062 TST12 3 THE NEXT TEST 
011652 001110 #TEST11,$LPERR ; THE ERROR LOOP ADDRESS 
011532 001106 #TST11,$LPADR : THE SCOPE LOOP ADDRESS 
011562 012737 000011 001102 #11,STSTNMA : TEST NUMBER AND 
Ps THE ERROR FLAG (SERFLG) 
011570 013777 001102 167344 STSTNM,@DISPLAY ; THE TEST NUMBER INTO THE DISPLAY REGISTER 
001200 WEXIT11,BYPASS ; BYPASS ADDRESS 
RPADR,R4 3 BUS ADDRESS 
DPB+1 ; ANY EXTENDED MEMORY BITS 
DPB+3 g AR ‘MODE’ & ‘HDR’ BITS 
001162 #25.,STIMES 3:00 25. ITERATIONS 
$SEC ;CLEAR SECTOR/TRACK ADDRESS 
SCYL ;CLEAR CYLINDER ADDRESS 
002504 #256. , SWC ;SET WORD COUNT TO ONE SECTOR 
002506 M #BUFFER,SBUF ;SETUP THE BUFFER ADDRESS 
TEST11: #STACK,SP ;SETUP THE STACK POINTER 
001110 1$: 4 #1$,SLPERR ; CHANGE LOOP ON ERROR ADDRESS 
PC,CLRP ;CLEAR THE RP11 
002502 #WRTSEK .DPB+2 >; CHANGE COMMAND TO WRITE 
PC,FILTRK sFILL BUFFER WITH THE TRACK ADDRESS 
PC,RP11 sWRITE THE TRACK'S ADDRESS 
PC, CONRDY ;WAIT FOR CONTROLLER TO FINISH 
PC,SAVRP ;STORE THE REGISTERS 
100000 001340 #ERR,SRPCS sERROR ? 
23 3;BR IF NOT 
sERROR WRITTING TEST PATTERN 
002513 : > INCREMENT THE TRACK ADDRESS 
002513 000024 sFINISHED ? 
1$ ;BR IF NOT FINISHED 
001124 : ;SETUP EXTPECTED VALUE 
EC sSTART WITH ZERO 
001110 : #4$,SLPERR ;CHANGE THE LOOP ON ERROR ADDRESS 
PC,CLRP sCLEAR THE RP11 
002502 #ROSEK ,DPB+2 ; CHANGE COMMAND 
PC,RP11 ;READ THE SECTOR 
PC, CONRDY s;WAIT FOR THE CONTROLLER TO BE READY 
PC,SAVRP :STORE THE REGISTERS 
100000 001340 #ERR,SRPCS sERROR ? 
5$ 7BR IF NOT 
17 sERROR READING THE SECTOR 
6$ ;BYPASS THE DATA CHECK 
001125 043657 ; SGDDAT+1,BUFFER+1 ;CORRECT VALUE ? 
6$ :BR IF OK 
;CONTENTS WRONG 
002513 000023 6$: sFINISHED ? 
;BR IF FINISHED 
002513 ; INCREMENT THE TRACK ADDRESS 
001125 qereaees ;COMPARSION WORD 


BR ; CONTINUE 
012060 000004 EXIT11: SCOPE ;LOOP ? 
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SRA AREER AREAAA EEA R ERE EATER R ERE REEAAEEREAREAREEEAKHEAEE 


s*TEST 12 EXTENDED MEMORY ADDRESS TEST 


:*THIS TEST TESTS THE OPERATION OF THE EXTENDED MEMORY ADDRESS BITS. IF THE 
>*SYSTEM DOES NOT HAVE MEMORY MANAGEMENT OR HAS MEMORY MANAGEMENT AND ONLY 
:*32K, THE TEST WILL NOT BE PERFORMED. 


1. THE PROGRAM WRITES A 2 WORD TEST SECTOR OF ALL ONES. 


2. EXTENDED ADDRESS BIT ‘MEX00' IS TESTED BY CLEARING LOCATION 
200000 AND READING THE TEST SECTOR INTO LOCATION 177776. LOCATION 
200000 IS CHECKED TO VERIFY THAT THE DATA IS CORRECT (ONES). THE 
PROGRAM VERIFIES THAT "MEX00" HAS SET AND THAT ‘MEXO1' IS NOT SET. 


3. If THE SYSTEM HAS AT LEAST 64K, "MEXO1' IS TESTED. LOCATION 
400000 IS CLEARED AND THE TEST SECTOR IS READ INTO LOCATION 377776 
("MEXOO" IS SET FOR THE READ). LOCATION 400000 IS CHECKED FOR THE 
gt CONTENTS (ONES). ‘MEXO0' SHOULD HAVE RESET AND ‘'MEX01" SHOULD 


eae ee ee Re Re eRe 


genet aia enna ata in ta a enim ome 


012062 


033737 001424 001276 BITS+<STN*2>,TSTNMS ;1S THIS TEST SELECTED 
6 ;BR IF YES 


= 
012720 TST13 ; THE NEXT TEST 
012202 001110 #TEST12,$LPERR ; THE ERROR LOOP ADDRESS 
012062 001106 #TST12,$LPADR~ ; THE SCOPE LOOP ADDRESS 
012112 012737 000012 001102 #12,STSTNM : TEST NUMBER AND 
: THE ERPOR FLAG (SERFLG) 
012120 013777 001102 167014 STSTNM,Q@DISPLAY ; THE TEST NUMBER INTO THE DISPLAY REGISTER 
001200 WEXIT12,BYPASS ; BYPASS ADDRESS 
RPADR,R4 : BUS ADDRESS 
DPB+1 : ANY EXTENDED MEMORY BITS 
DPB+3 s¢ "MODE’ & ‘HDR’ BITS 
001162 #100.,STIMES D0 100. ITERATIONS 
022232 $kT11 sMEMORY MANAGEMENT ON THE SYSTEM ? 
1 :BR IF ON SYSTEM 
012720 :GO TO THE NEXT TEST 
001232 1$: ;ENOUGH MEMORY FOR THIS TEST ? 
sBR IF YES 
012720 J 3GO0 TO THE NEXT TEST 
TEST12: CK,S ;SETUP THE STACK POINTER 
001110 #TEST12,$LPERR ;INITIAL ERROR LOOP ADDRESS 
PC,CLRP sCLEAR THE RP11 
BUFFER ;TEST PATTERN 
043660 #-1,BUFFER+2 :SECOND WORD OF PATTERN 
002506 #BUFFER,SBUF ;SETUP THE BUFFER ADDRESS 
002504 #2,$WC sWORD COUNT OF 2 
$SEC sSECTOR/TRACK ZERO 
SCYL sCYLINDER ZERO 
002502 #WRTISEK,DPB+2 ;WRITE COMMAND 
PC,RP11 : INITIATE THE COMMAND 
PC, CONRDY ;WAIT FOR CONTROLLER READY 
012274 004737 023240 PC,SAVRP ;STORE THE REGISTERS 
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012472 
012474 


012650 
012652 


22-APR-7 
032737 


104051 
032737 


104055 
032737 


14:42 
100000 


012712 


100000 


000020 


000040 
177777 


177777 
040000 


001232 
004000 


100000 


000020 


000040 


001340 


001110 
172356 
172342 


177572 


002506 
002502 


001340 


001340 


001340 


040000 


001124 
001126 


000002 


172344 
001110 


002506 
002501 
002502 


001340 


001340 


001340 


E 
TST12B: 


1$: 


5 
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EXTENDED MEMORY ADDRESS 
#ERR ,SRPCS 
1$ 


4 

EXIT12 

4 fy oo 
#197600, eKIPAR7 


#77406 ,KIPDOR7 
#1, a#SRO 
@#40000 
#177776, $BUF 
#ROSEK ,DPB+2 
PC,RP11 
PC,CONRDY 

PC ,SAVRP 
#ERR,SRPCS 

2$ 


50 
#MEXO,SRPCS 
3$ 
51 
#MEX1,SRPCS 
4$ 


52 
#177777 ,a#40000 
TST12B 


#177777 ,SGDDAT 
#40000 ,SBDDAT 


53 
MAXMEM+2,#2 
EXIT12 

#4000 ,KIPAR2 
#1$,SLPERR 


#MEXO,DPB+1 
#RDSEK ,DPB+2 
PC,RP11 

PC, CONRDY 
PC, SAVRP 
#ERR,SRPCS 
23 


54 
#MEXO,SRPCS 
3$ 
55 
#MEX1, SRPCS 


TES SEQ 0064 
“ty i— TERMINATE WITH AN ERROR ? 


:BR IF NOT 

sERROR AFTER 2 WORD WRITE 

sBYPASS REST OF TEST 
:CHANGE LOOP ON ERROR ADDRESS 
;CLEAR THE RP11 
OPEN I/0 REGISTERS 
ENABLE FIRST 4K 
ENABLE SECOND 4K 
sENABLE FIRST TEST LOCATION 
;LOAD DESCRIPTOR REGISTER 0 
;LOAD DESCRIPTOR REGISTER 1 
zLOAD DESCRIPTOR REGISTER 2 
LOAD DESCRIPTOR REGISTER 7 
:TURN ON MEMORY MANAGEMENT 
CLEAR LOCATION 200000 
SETUP SUS ADDR 
; CHANG’: COMMAND TO READ 
STAR. THE COMMAND 
WAI” FOR CONTROLLER READY 
STORE THE REGISTERS 
zANf ERRORS? 
;BPANCH IF NOT 
sERROR AFTER READING 2 WORDS 
1D "MEXO" SET ? 

BRANCH IF IT DID 

;"MEXO' DID NOT SET AFTER 2 WORD READ 
STARTING AT LOCATION 177776 
:*MEX1* SHOULD NOT BE SET 

BRANCH IF NOT SET 

;"MEX1" IS SET = SHOULD NOT BE 
WAS DATA READ INTO LOCATION 
3200000 CORRECTLY? - BRANCH IF YES 
EXPECTED CONTENTS 
CONTENTS OF LOCATION 200000 
DATA COMPARE ERROR AT LOC 200000 
sENOUGH MEMORY FOR THE NEXT PART OF THE TEST ? 
BR IF NOT 
CHANGE TEST LOCATION 
;CHANGE THE LOOP ON ERROR ADDRESS 
;CLEAR THE RP11 
CLEAR LOCATION 400000 
;BUFFER ADDRESS 
;SETUP EXTENDED MEMORY ADDRESS BIT 
READ COMMAND 
START THE COMMAND 
sWAIT FOR CONTROLLER READY 
:STORE THE REGISTERS 

: ANY ERRORS? 

BRANCH IF NOT 

s ERROR ae or TWO words 
:1S "MEXO' 

BRANCH IF NOT 

7"MEXO" DID NOT CLEAR AFTER 2 WORD 
READ STARTING ar LOCATION 377776 
;D1D "MEX1" SET 
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012660 001001 
012662 104056 


012664 022737 177777 


177777 
040000 


177572 
012716 000004 


012720 
001426 


013574 


012750 012737 000013 
012756 013777 001102 


013014 


040000 


001124 
001126 


001276 


001110 
001106 
001102 


166156 
001200 


001162 


E 
EXIT12: 
S$ 


5 
MACY11 30A(1052) "22 APR- 
EXTENDED MEMORY ADDRESS T 


4$ 
56 
#177777 ,a#40000 
EXIT12 


HI7T777, SGDDAT 
ee ,SBDDAT 


a#SRO 


as J 14:43 PAGE 66 


BR IF SET 
;"MEX1' DID NOT SET AFTER 2 WORD TRANSFER 


zSTARTING AT LOCATION 377776 

WAS DATA READ INTO LOCATION 400000 
;CORRECTLY ? = BRANCH IF YES 
EXPECTED DATA 


DATA FROM LOCATION 400000 
DATA COMPARE ERROR AT LOC 400000 
TURN OFF MEMORY MANAGEMENT 


;LOOP ? 


FERRARA AAA EAE E RETA EAA AREER ERERAREEAEEEE 


DATA BUFFER REGISTER BIT TEST 


s*THE DATA BUFFER REGISTER TEST VERIFIES THAT ALL 36 BITS OF THE DATA 
;*BUFFER REGISTER CAN BE SET AND CLEARED. 


THE TEST FIRST WRITES THE FOLLOWING TEST PATTERN IN CYLINDER O, 


CSTEST 13 


ca 


- 


. 
€ 
. 
° 
. 
* 
. 
’ 
. 
a 
. 
. 
. 
° 
. 
. 
. 
. 
. 
’ 
. 
’ 
. 
. 
+ 
’ 
’ 
. 
Y 


® 
® 
* 
® 
* 
* 
* 
* 
* 
* 
* 
. 
* 
* 
* 
® 
te 
ae 
i 
me 
® 


@. 


COMPLETION OF THE TEST, 
PDP- 


052525 


125252 


ETC 


TRACK 0, SECTOR 0 USING 10/15 MODE (*MODE' BIT SET). 


THE TEST SECTOR IS THEN READ AND THE DATA IS COMPARED. AT THE 


11 MODE. 


THE PROGRAM RESTORES THE TEST SECTOR TO 


7 ipa cit Bo I a hs ONE ea aN nara y 


MOV 
TESTI3: MOV 


BITS+<$IN*2>, TSTNMS 1S THIS TEST SELECTED 
+6 R IF YES 


TST14 
#TESTI3,SLPERR 
#TST13,SLPADR 
#13,STSTNM 


:GO TO THE NEXT TEST 


:SETUP THE ERROR LOOP ADDRESS 
;SETUP THE SCOPE LOOP ADDRESS 
; SETUP TEST NUMBER AND 


CLEAR THE ERROR FLAG (SERFLG) 


STSTNM,@DISPLAY 
#EXIT13, BYPASS 
RPADR ,R4 

DPB+1 

DPB+3 

#100. ,STIMES ; 
#STACK, SP 


;LOAD THE TEST NUMBER INTO THE DISPLAY REGISTER 


;SETUP BYPASS ADDRESS 
:RP11E BUS ADDRESS 


sCLEAR ANY EXTENDED MEMORY BITS 
CLEAR ‘MODE’ & ‘HDR® BITS 

:00 100. ITERATIONS 

SETUP THE STACK POINTER 
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013020 012701 043656 #BUFFER,R1 ;BUFFER ADDRESS 
#128.,R ; SIZE 


128. ,R2 : 
#52525, (R1)+ sPATTERN FOR BITS 20 = 35 
#52525, (R1)+ PATTERN FOR BITS 4 = 19 
000005 #5,(R1)+ ;PATTERN FOR BITS 0 - 3 
R2 :AT THE END ? 
:BR IF END 
125252 #125252,(R1)+  ;PATTERN FOR BITS 20 - 35 
125252 #125252,(R1)+  ;PATTERN FOR BITS 4 - 19 
000012 #12,(R1)+ PATTERN FOR BITS 0 - 3 
R2 zAT THE END ? 
013066 001360 1$ ;BR IF NOT 
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3326 013070 012737 013070 001110 28: MOV #2$,$LPERR ;LOOP ON ERROR ADDRESS 
3327 013076 004737 025654 JSR PC,CLRP CLEAR THE RP11 
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013102 005037 002512 ;SECTOR/TRACK ADDRESS OF ZERO 
:CYLINDER ZERO 
002504 ;1 SECTOR IN 10/15 MODE 
002506 ;BUFFER ADDRESS 
002502 #MODE , DPB+2 ;SET THE ‘MODE’ BIT 
002502 #URTSEK ,DPB+2 WRITE COMMAND 
PC,RP11 :D0 THE COMMAND 
PC, CONRDY WAIT FOR THE COMMAND TO COMPLETE 
PC, SAVRP SAVE THE REGISTERS 
100060 001340 #WERR,SRPCS ;OPERATION GO OK ? 
3$ BR IF IT DID 
4 ;SETUP OPERATION TERMINATED WITH AN ERROR 
TSTI3A ;CORRECT THE SECTOR AND BYPASS REST OF TEST 
013172 001110 3$: #3$,SLPERR ; CHANGE THE LOOP ON ERROR ADDRESS 
025654 PC,CLRP ;CLEAR THE RP11 
043656 #BUFFER,R1 :CLEAR THE INPUT BUFFER 
002504 RI +1} tomes ADDRESS 


002504 : SIZE 
;CLEAR THE BUFFER 
FINISHED ? 
7BR IF NOT 
002504 002506 SWC, SBUF ; CHANGE BUFFER ADDRESS 
002506 SWC, SBUF ;DOUBLE THE WORD COUNT 
002506 #BUF FER ,SBUF :ADD BUFFER BASE ADDRESS 
002502 #RDSEK ,DPB+2 CHANGE COMMAND 
PC,RP11 READ THE SECTOR 
PC ,CONRDY ;WAIT FOR THE OPERATION TO COMPLETE 
PC, SAVRP ;STORE THE REGISTERS 
100000 001340 #ERR,SRPCS DID AN ERROR OCCUR ? 
5$ :BR IF NOT 
17 sERROR OCCURED READING THE TEST SECTOR 
TST13A BYPASS THE COMPARSION 
043656 : #BUFFER,R1 :GOOD DATA 
$WC,R2 : SIZE 
SWC .R3 FORM ADDRESS OF TEST DATA 
SWC .R3 ;DOUBLE THE WORD COUNT 
#BUFFER,R3 ;ADD THE BUFFER START ADDRESS 
10$ :CLEAR THE COMPARSION ERROR COUNTER 
000010 165574 : #SWO03,aSWR > COMPARE THE DATA ? 
TST13A :BR IF NOT 
(R1)+,(R3)+ COMPARE THE DATA 
9$ :BR IF OK 
177776 §=001124 -2(R1),$GDDAT  ;GO00D ty 
001126 -2(R3),$BDDAT  ;BAD DAT 
R3,SBDADR 7 FORM BAD ADDRESS 
001122 #2, S$BDADR :DECREMENT IT 
013472 10$ ANY COMPARE ERROR ALREADY ? 
7$ BR IF SOME 
013406 001116 #. ,SERRPC :PC FOR ERROR MESSAGE 
001114 #102, SITEMB ERROR TABLE INDEX 
PC, TYPERR REPORT COMPARSION ERROR 
001114 : #104, SI TEMB ; INDEX OF DATA DISPLAY MESSAGE 
PC, TYPERR TYPE THE MESSAGE 
: 10$ ; INCREMENT COMPARSION ERROR COUNT 
001320 013472 CMP.CT,10$ COMPARE AGAINST THE LIMIT 
013452 103004 9$ ;BR IF NOT GREATER 
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013454 
013462 
013464 
013466 
013470 
013472 
013474 
013502 
013506 
013512 
013520 
013526 
013532 
012536 
013544 
013550 
013554 
013560 
013566 
013570 
013572 


22-APR-78 14:42 


032777 
4 


000004 


000020 


100000 


165456 


001110 


002504 
002502 


002506 


001340 


1 


E 
T 
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ST 
13 DATA BUFFER REGISTER BIT TEST SEQ 0069 


as + CONTINUE COMPARING ANYWAY ? 
S 


R IF NO 
9$: ;F INTSHED COMPARING ? 
IF 


;CHANGE MODE OF THE SECTOR 


B 
OS: ° 0 ;COMPARSION ERROR COUNTER 


TST13A: #TSTI3A,$LPERR ;CHANGE LOOP ON ERROR ADDRESS 


PC,CLRP ;CLEAR THE RP11 

DPB+3 ;CLEAR THE "MODE’ @ ‘HDR’ BITS 
#2,$WC CHANGE WORD COUNT 

#URTSEK, DPB+2 ;CHANGE COMMAND 

BUFFER :SET DATA TO ZERO 

BUFFER+2 sOTHER DATA WORD 

#BUF FER, SBUF ;BUFFER ADDRESS 

PC,RP11 s;RE-WRITE THE SECTOR 

PC, CONRDY ;WAIT FOR THE OPERATION TO COMPLETE 
PC, SAVRP sSTORE THE REGISTERS 

#ERR,SRPCS :DID THE WRITE FINISH WITHOUT ERROR ? 
Ex1T13 BR IF IT DID 

60 ; ERROR REWRITING THE SECTOR 


ERROR 
EXIT13: SCOPE LOOP ? 


SRA RARER EAE ARETE EEA AEE AAA ARETE ERAEKARAAAAEAEKAEKKEREEE 


s*TEST 14 DATA STORAGE/RETRIEVAL TEST 


:*THE DATA TEST PERFORMS DATA STORAGE AND RETRIEVAL TESTING USING THE CONTROLLER 
:*AND THE CURRENTLY SELECTED DRIVE. UNLESS ALTERED BY THE OPERATOR, THE 
s*TEST WILL WRITE AND WRITE CHECK THE ENTIRE DISK PACK USING ALL 16 DATA 
:*PATTERNS IN A ROTATING MANNER. THE BUFFER SIZE USED FOR THE WRITE AND 
s*WRITE CHECK ORDERS IS DETERMINED BY THE AVAILABLE MEMORY ON THE SYSTEM 
z*(MINUS THE SPACE REQUIRED BY THE PROGRAM LOADER). THE PROGRAM WILL USE 


—_- MEMORY SIZE OR 8K, WHICHEVER IS LESS, AS THE BUFFER 


e 

7*AFTER THE PACK HAS BEEN WRITTEN, THE TEST WILL READ AND COMPARE THE 

z*DATA. THE BUFFER SIZE USED FOR THE READ IS THE SAME SIZE AS THAT USED 

:*FOR THE WRITE/WRITE CHECK PART OF THE TEST. FOR THE READ, THE TEST WILL 
;*ROTATE THE READ BUFFER THROUGH MEMORY SO THAT ALL OF THE AVAILABLE MEMORY 
:*IS USED BY THE READ AND COMPARE OPERATIONS. THE TEST USES MEMORY MANAGEMENT 


eaeeee ee ee eRe 


:*ON SYSTEMS WITH MORE THAN 28K. (MEMORY MANAGEMENT WILL NOT BE USED IF 
soon MEMORY MANAGEMENT SYSTEMS WITH 28K OR LESS.) 


!sTHE DATA PATTERNS USED BY THE DATA TEST ARE GIVEN BELOW: 


000000 001777 176000 177777 114631 170360 151322 
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013574 
013574 
013602 
013604 
013610 
013616 
013624 


013632 
013640 


013756 


22-APR-78 1 


033737 
001002 
000137 
012737 
012737 
012737 


013777 


012737 


001430 
014630 
014066 
013574 
000014 


001102 


000100 
022232 
177777 
023346 
001240 
001230 
001232 


001222 


043656 


001276 


001110 
001106 
001102 


165302 
001200 


165244 


001222 


001234 
001236 


001234 
001240 


Se te Fe Se Be Be Be Se Be Se 


Se te Se Se Be Be Be Be Be 


ee ee ee 
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000000 
000000 
000000 
000000 
000000 
000000 


077577 


003777 
007777 
017777 
037777 
077777 
177777 


100000 


a2 cAPR- . 
DATA STORAGE/RETRIEVAL TES 


174000 
170000 


177776 
177775 
177773 
177767 
177757 
177737 
177677 
177577 
177377 
176777 
175777 
173777 
167777 
157777 
137777 
077777 


000000 
177777 
000000 
177777 
177777 
000000 
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5252 052525 007417 026455 
ra 8 125252 170360 151322 


077777 177777 000000 177777 
137777 177777 000000 177777 
157777 177777 177777 000000 
167777 177777 177777 000000 
173777 177777 177777 000000 
175777 177777 177777 000000 
176777 177777 177777 000000 
177377 177777 177777 000000 
177577 177777 177777 000000 
177677 177777 177777 000000 
177737 177777 177777 000000 
177757 177777 177777 000000 
177767 177777 177777 000000 
177773 =177777 =177777 000000 
177775 «177777 «177777 000000 
177776 177777 177777 000000 


SERRA AARAT AAA AARAAATA TETRA AAERARAEAAAAAAAAAAREKEAEREAAAEEAEE 


T8114: 


23: 


> trate - TSTNAS 


TST15 
#TEST14 


-SLPERR 


#TST14,$LPADR 


#14,$TST 


STSTNM,@DISPLAY 
-BYPASS 


#EXITI4 
RPADR RS 
DPB+1 
DPB+3 
#STACK,S 
cen..oe 


2 
$kT11 
2$ 
#-1,AMAC 
PC ,MOVLD 


Pp 


TV 
R 


(SP)+,LOMEM 


MAXMER,H 


MAXMEM*+2 ,HIMEM*2 
3$ 


MMACTV 
HIMEM+2 
MEMSIZ,H 
#BUFFER, 


IMEM 


IMEM 
LOMEM 


:1S THIS TEST SELECTED 
F YES 


THE NEXT TEST 

THE ERROR LOOP ADDRESS 
THE SCOPE LOOP ADDRESS 
TEST NUMBER AND 

THE ERROR FLAG (SERFLG) 
THE TEST NUMBER INTO THE DISPLAY REGISTER 
BYPASS ADDRESS 

BUS ADDRESS 

ANY EXTENDED MEMORY BITS 
*MODE’ & ‘HDR’ BITS 

THE STACK POINTER 


‘OSE MEMORY MANAGEMENT ? 


:BR IF 


NOT 
~ ey MANAGEMENT AVAILABLE ? 
BR IF NOT 


SET MEMORY MANAGEMENT ACTIVE INDICATOR 

:MOVE THE LOADER 

;BEGINNING ADDRESS OF BUFFER SPACE 

HIGHEST MEMORY ADDRESS USED BY THE TEST 
a BITS 


; CONT 
; CLEAR 
: CLEAR 


MEMORY MANAGEMENT ACTIVE INDICATOR 
UPPER "HIMEM’ ADDRESS BITS 


:HIGHEST NON MEMORY MANAGENEMT LOCATION 
;DEFAULT BUFFER STARTING ADDRESS 


SEQ 0070 


On 
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CZRPYD.P11 
013764 


014072 


014076 
014104 
014112 
014120 
014126 
014134 
014142 
014146 


014332 


005037 


004737 
113737 


104005 


001242 


000012 
001252 


000012 
001250 
001100 
024002 


001272 
001270 
001266 
001240 
001256 
000017 
001260 


001254 
001246 
024050 
014166 
025654 
164734 
000003 


024432 
000001 


000003 


100000 


000002 
025654 


100000 


001224 
001226 
001254 


002512 


001204 


001244 


001110 


164712 
002502 


001340 


164646 


002502 


001340 


T14 
3$: 


5$: 


MACY11 30A(1052) 
DATA STORAGE/RETRIEVAL TEST 


TEST14: 
J 


1$: 


BEQ 
ERROR 


LOMEM+2 
LOMEM,ACTMEM 


LOMEM+2 ,ACTMEM+2 


WC14,BLKS14 
BLKS14 
BLKS14+1 
BLKS14 
BLKS14,-(SP) 
INCTRK 
INCSEC 

#10., (SP) 

5$ 


INCTRK 
4$ 


#10., (SP) 
(SP)+,INCSEC 
#STACK, SP 
PC, SECNBR 


SSEC,$SEC 


#15. ,PATNUM 
OPRSEL 

2$ 
BLKS14,PAKSIZ 
PAKSIZ+2 
PC,PATSEL 
#3$,SLPERR 
PC,CLRP 

yy ,7 (SP) 


ow (SP)+ 


TST1 

PC, SE TBUF 
#5400 ,aSwWR 
4$ 


#WRTSEK ,DPB+2 
RP11 


PC, 

PC, CONRDY 
PC, SAVRP 
#ERR,SRPCS 
4$ 


61 
#SW01,aSWR 
5$ 


PC,.CLRP 
#WRTICHK ,DPB+2 
PC,RP11 

PC ,.CONRDY 

PC ,SAVRP 
#ERR,SRPCS 

5$ 


5 


G 6 
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SEQ 0071 


CLEAR UPPER STORAGE WORD 

STARTING ADDRESS OF FIRST BUFFER 
;UPPER ADDRESS BITS 

; CONVERT THE WORD COUNT TO A SECTOR COUNT 

RIGHT JUSTIFY THE SECTOR COUNT 

;CLEAR THE RESIDUE 

; CHANGE TO ABSOLUTE COUNT 

; CONVERT BLOCK COUNT TO SECTOR/TRACK INCREMENTS 

: CLEAR TRACK STORAGE 

;CLEAR SECTOR STORAGE 

; SUBTRACT A FULL SECTOR 

7BR IF MINUS 

;COUNT THE TRACK 

; CONTINUE 

sCORRECT THE SECTOR RESIDUE 

;SECTOR INCREMENT VALUE 

;LOAD THE STACK POINTER 

:GET THE NUMBER OF SECTORS ON THE PACK 

:BEING USED 

STARTING SECTOR ADDRESS 

STARTING TRACK ADDRESS 

STARTING CYLINDER ADDRESS 

;BUFFER ADDRESS 

STARTING WORD COUNT 

;PRESET THE PATTERN INDEX 

;USING AN OPERATOR SPECIFIED ADDRESS ? 

:BR IF YES 

;DECREMENT THE SECTOR COUNT FOR THE 

sFIRST OPERATION 

;SELECT THE PATTERN 

;LOOP ON ERROR ADDRESS 

;CLEAR THE RP11 

; INHIBIT WRITE AND 

WRITE CHECK ? 


; YES--BRANCH 
;MOVE DATA PATTERN INTO THE BUFFER 
SINHIBIT WRITE ? 
; YES--BRANCH 
; COMMAND=WRITE 
700 THE COMMAND 
WAIT FOR THE COMMAND TO COMPLETE 
STORE THE REGISTERS 
ERROR OCCURED ? 
:BR IF NOT 
REPORT THE ERROR 
+ INHIBIT WRITE CHECK ? 


:COMMAND=WRITE CHECK 
;D0 THE WRITE CHECK 
WAIT FOR THE COMMAND TO FINISH 
4 phe THE REGISTERS 


:BR IF NOT 
;REPORT THE WRITE CHECK ERROR 
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CZRPYD.P11 
014334 
014340 
014342 


014346 


014624 


004737 
000710 
004737 


113737 


000137 


024114 
024002 


001272 
001270 
001266 
001256 
000017 
001260 


001254 


000004 


000005 
022770 
023664 
023240 
100000 


001314 
000040 


001314 
001314 


001314 


000111 
017254 
000010 


024614 
024114 


023452 
016616 


002512 
002513 
002510 
002504 
001204 


001244 


001110 


164460 


002502 


001340 


164410 


001316 


001114 
164336 


5$: 


B 
TST14A: 


5$: 


6$: 


7$: 


BR 
EXIT14: 
JS 


MACY11 30A(1052) 
DATA STORAGE/RETRIEVAL TEST 


; INCREMENT THE ADDRESS 

; CONTINUE 

;GET NUMBER OF SECTORS ON THE DRIVE 
;BEING TESTED 

STARTING SECTOR 

STARTING TRACK 

STARTING CYLINDER 

INITIAL WORD COUNT 

;PRESET PATTERN NUMBER 

sUSING AN OPERATOR SPECIFIED PATTERN 
:BR IF YES 

s;DECREMENT THE SECTOR COUNT FOR 

; THE FIRST OPERATION 

CLEAR THE RETRY COUNTER 

;SELECT A PATTERN 

;GENERATE A BUFFER ADDRESS 

;LOOP ON ERROR ADDRESS 

;CLEAR THE RP11 

: INHIBIT READ DATA AND SOFTWARE COMPARE ? 
; YES--BRANCH 

;LOAD READ COMMAND 

START THE READ 


PC, INCADR 
2$ 
PC,SECNBR 


SSEC,$SEC 
STRK,STRK 
SCYL,S$CYL 
WC14,$wWC 
#15. ,PATNUM 
OPRSEL 


1$ 
BLKS14,PAKSIZ 


PAKSIZ+2 
RETRY 
PC,PATSEL 
PC ,GETBUF 
#2$,SLPERR 
PC,CLRP 
#SWO2,aSWR 
EXIT14 
#RDSEK ,DPB+2 
PC,RP11 
PC, CONRDY 
PC ,SAVRP 
#ERR,SRPCS 
5$ 


RETRY 

3$ 
#SWO5,aSWR 
4$ 

62 

RETRY 
RETRY,LRETRY 
2$ 

110 
6$ 
RETRY 
6$ 
#111,S1TEMB 
PC, TYPERR 
#SWO3,aSWR 
7$ 

PC ,DATCMP 
PC, INCADR 
1$ 


PC,.RESLOR 
SEOP 


H 6 
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SEQ 0072 


sWAIT FOR THE READ TO COMPLETE 
; STORE THE REGISTERS 


TERROR 


:BR IF NOT 
RETRY ATTEMPT ? 


:BR IF NOT 

sDISPLAY ALL RETRY ATTEMPTS 
BR IF NOT 

;REPORT THE ERROR 

: INCREMENT THE RETRY COUNT 
RETRY LIMIT ? 

BR IF NOT 

REPORT UNSUCESSFUL RETRY 

; CONTINUE 

> COMING FROM A SUCESSFUL RETRY ? 
BR IF NOT 

RETRY COUNT MESSAGE NUMBER 
REPORT THE RETRY COUNT 

> COMPARE THE DATA ? 
;NO--BRANCH 

:YES--b00 IT 

; INCREMENT THE DISK ADDRESS 


; CONTINUE 

;LOOP ? 

;RESTORE THE LOADER IF IT WAS MOVED 
:GO TO END OF TEST 


PURER A ARATE AERA AAA AAA AAA ATER A EAA AERA RE AERA 


SaTEST 15 


POWER FAIL TEST 


:*TEST THE ABILITY OF THE RP11E TO SENSE POWER FAILURE AND FOR THE DRIVES 


;*TO RETRACT THEIR HEADS. 
;*THE CYLINDER ADDRESS IS TESTED FOR ZERO. 
;*REQUESTING POWER TO BE TURNED OFF, 


WHEN POWER IS TURNED ON AGAIN 


AFTER TYPING THE MESSAGE 
THE PROGRAM GOES INTO A LOOP 





Ci 
C2 


I 6 
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CZRPYD.P11 22-APR-78 14:42 115 POWER FAIL TEST SEQ 0073 


;*READING FROM THE SELECTED DISK DRIVE. AFTER POWER IS RESTORED, 
>: *MEMORY IS CHECKED TO SEE THAT THE DISK DID NOT TRANSFER ANY DATA 
:*TO MEMORY WHILE POWER WAS GOING DOWN. 


My SRR E AEE E EEE E EEE E EEE E RET EAE EAE E EERE AEEEAEREAE RAKE E 
014630 TST15: 
014630 001432 001276 BITS+#<$TN*2>,TSTNMS ;1S THIS TEST SELECTED 
014636 +6 ;BR IF YES 
014640 015372 TST16 ; THE NEXT TEST 
014644 014736 001110 #TESTIS,SLPERR ; THE ERROR LOOP ADDRESS 
014652 014630 001106 #TST15,$LPADR~ ; THE SCOPE LOOP ADDRESS 
014660 012737 000015 001102 #15,STSTNM : TEST NUMBER AND 
3 THE ERROR FLAG (S$ERFLG) 
014666 013777 001102 164246 STSTNM,@DISPLAY ; THE TEST NUMBER INTO THE DISPLAY REGISTER 
014674 001200 WEXITIS,BYPASS ; BYPASS ADDRESS 
014702 RPADR,R4 : BUS ADDRESS 
014706 DPB+1 : ANY EXTENDED MEMORY BITS 
014712 DPB+3 ;CLEAR "MODE' & ‘HDR' BITS 
014716 »MSGI5A : "POWER FAIL TEST’ 
014722 PC, MOVLDR ;MOVE THE LOADER 
014726 P ;BUFFER STARTING ADDRESS 
014732 C ;CLEAR THE UPPER BITS JUST TO BE NICE 
014736 TEST15: ;SETUP THE STACK POINTER 
014742 J L ;CLEAR THE RP11 
014746 000024 #TST158, a#24 ;SET UP POWER FAIL VECTOR 
014754 000026 #PR7, a#26 ;LOCKOUT INTERRUPTS 
014762 LOMEM, RO ;START OF FREE MEMORY SPACE 
014766 : #125252, (RO)+ sFILL MEMORY WITH CHECKERBOARD 
014772 001302 RO,MEMSIZ ; PATTERN 
014776 1$ 7BR IF NOT FINISHED 
015000 001210 002510 MAXCYL,SCYL ;LOAD MAXIMUM CYLINDER 
015006 $SEC ;CLEAR SECTOR/TRACK 
015012 002504 #256, SWC ;WORD COUNT = 1 SECTOR 
015020 002506 LOMEM, $BUF sBUFFER ADDRESS 
015026 002502 #WRISEK ,DPB+2 ;WRITE OPERATION 
015034 PC,RP11 ;START THE COMMAND 
PC, CONRDY sWAIT FOR THE CONTROLLER TO BE READY 
PC,SAVRP ;STORE THE REGISTERS 
100000 001340 #ERR,SRPCS sERROR DURING OPERATION ? 
23 ;BR IF NOT 
;REPORT THE ERROR 
027456 : ; ;"TURN CPU POWER OFF AFTER MESSAGE' 
025654 : Aae :CLEAR THE RP11 
000005 002502 #ROSEK, DPB+2 ;READ COMMAND 
022770 PC, RP11 s INITIATE THE READ 
023664 PC, CONRDY sWAIT FOR CONTROLLER READY 
000766 3$ ;LOOP, READING THE DISK 


sAFTER MACHINE IS POWERED DOWN AND UP, CONTROL IS TRANSFERRED HERE. 


004737 022566 TSTISA: JSR PC,RPINIT sINITIALZIE THE RP11E 
,MSG15D ;*PROGRAM WILL LOOP, WAITING FOR DRIVE TO COME ONLINE’ 
001110 1$: #1$,SLPERR SETUP LOOP ON ERROR ADDRESS 
001220 #2500, STALLT ;LOAD STALL VALUE 
PC,STALL sSTALL FOR 2500 MILLISECONDS 
013701 001176 CHKDRV,R1 DRIVE ADDRESS 
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CZRPYD.P11 


015146 
015152 
015156 
015160 
015162 
015164 
015166 
015174 
015200 
015204 
015206 
015214 


015216 


015310 


015314 
015322 


015324 


015370 


004737 


104063 


012737 
013700 
022720 


000137 


012737 
000774 


012737 


000650 


022666 
001370 


001176 
023240 
001354 


015216 


015276 
001240 
125252 
001302 
125252 
177776 
001122 
000002 
027617 


023452 
003676 


015324 


000026 


001324 


000005 


001164 


001164 


001124 
001126 


001122 


000024 


000024 


001220 


TEST 
T15 


6$: T 
EXIT15: 


PC ,DRVINT 
eras 


2$ 
112 
EXIT15 


CHKDRV,RPCS+1(R4) 
PC,SAVRP 
$SUCA 


3$ 
#3$,SESCAPE 
63 


#6$,SESCAPE 
LOMEM,RO 
#125252, (RO)+ 
5$ 

RO,MEMSIZ 

4$ 


6$ 

#125252 ,$GDDAT 
~2(RO) ,SBDDAT 
RO, SBDADR 
ernment 


-MSG15C 


PC,RESLOR 
START2 


;POWER FAIL TRAP HANDLER 


TST15B: MOV 


#TST1I5C ,a#24 
TST15B 


;POWER UP TRAP HANDLER 


TST1SC: 
C 


#26 ,a#24 
a#26 
#STACK,SP 
PS 


#5000. ,STALLT 
PC,STALL 
PC,STKINT 
RPADR ,R4 
TST15A 


J. 6 
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POWER FAIL TEST 


SEQ 0074 


;CHECK THE DRIVE'S STATUS 

1S THE DRIVE ONLINE ? 

> CONTINUE WAITING FOR DRIVE TO COME ONLINE 
BR IF IT IS ONLINE 

DRIVE UNSAFE AFTER POWER FAIL 
;DRIVE UNSAFE, EXIT 

sSELECT THE DRIVE 

STORE THE REGISTERS 

: SELECTED CYLINDER SHOULD BE ZERO 
:BR IF IT DID 

;;ESCAPE TO 3$ ON ERROR 

;DRIVE DID NOT RETURN TO CYLINDER 0 
:ON POWER FAILURE 


:;ESCAPE TO 6$ ON ERROR 
;BUFFER ADDRESS 
:DID MEMORY RETAIN PATTERN ON POWER FAIL ? 
BRANCH IF NOT 
sEND OF MEMORY ? 
BR IF NOT 
sEXIT 
sEXPECTED MEMORY CONTENTS 
sACTUAL MEMORY CONTENTS 
; ADDRESS 
CORRECT IT 
s CONTENTS OF MEMORY CHANGED AFTER POWER FAIL 
—_ OF POWER FAIL TEST’ 
? 


;LOOP ? 
RESTORE THE LOADER 
RETURN TO ‘CONVERSATION MODE’ ENTRANCE 


;SET UP POWER UP VECTOR 
; LOOP 


RESTORE TRAP CATCHER 
CATCHER HALT 

;SETUP STACK POINTER 

RETURN TO PRIORITY ZERO 
;LOAD STALL VALUE 

STALL FOR 5000. MILLISECONDS 
: INITIALIZE THE TTY KEYBOARD 
;RP11E ADDRESS 

VERIFY POWER DOWN SEQUENCE 


CZ 
CZ 


'WEeRRRRRRRRRSASLASSLLASSLASELASELELASASEAL ESE S ERE EERE SESE R ESS OY 


T*TEST 16 HEAD ALIGNMENT ROUTINE 


:*THIS ROUTINE PERFORMS HEAD SELECTION AS DIRECTED FROM THE KEYBOARD. 
:*THE ALIGNMENT OF THE SELECTED HEAD MAY BE CHECKED OR ADJUSTED. 


itt tp PPP PPR RRR RRR RR RARRRRRRRRRRARARSASELE SELES SESSA LES E EEE SS OY 
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CZRPYD.P11 
015372 


015422 
015430 


015622 


015624 


015634 


22-APR-78 14:4 


033737 001434 
015624 
015460 
015372 
000016 


001102 


012737 
013777 


001276 


001110 
001106 
001102 


163504 
001200 


K 6 
MACY11 30A(1052) 22-APR-78 
HEAD ALIGNMENT ROUTINE 


TST16: 
ee 1STNAS 
;BR 


TST17 
#TEST16,SLPERR 
#TST16,$LPADR 
#16,STSTNM 


STSTNM,@DISPLAY 
#EXIT16,BYPASS 


14:43 PAGE 76 


31S THIS TEST SELECTED 
IF YES 


THE NEXT TEST 

THE ERROR LOOP ADDRESS 

THE SCOPE LOOP ADDRESS 

TEST NUMBER AND 

THE ERROR FLAG (SERFLG) 

THE TEST NUMBER INTO THE DISPLAY REGISTER 
BYPASS ADDRESS 

BUS ADDRESS 


RPADR,R4 
DPB+1 
DPB+3 
#STACK,SP 
ent 


3 
#SWO7,aSWR 
1$ 
#SWO7,aSwR 
2$ 

-MSG16B 


(SP)+,R1 
RO,CK.NUM 


ANY EXTENDED MEMORY BITS 
"MODE’ & "HDR’ BITS 
THE STACK POINTER 
ALIGNMENT ROUTINE‘ 
;GET THE HEAD ADDRESS WITHOUT THE SWO7 NONESENSE 
sSWITCH 7 SET ? 
:BR IF NOT 
;SWITCH 7 RESET ? 
BR IF NOT 
; "ENTER HEAD ADDRESS (IN OCTAL)' 
:GET THE ENTRY 
ZSTARTING ADDRESS OF INPUT ASCII STRING 
: CHECK THE NUMBER 
: ILLEGAL INPUT 
TERMINATED WITH A ‘CR* 
:NO ENTRY = ‘CR ONLY 


C 
TEST16: 
027743 T 


000200 163440 1$: 
000200 163430 2$: 
030255 3$: 


027136 


000024 #20. ,R2 
3$ 


0 
002513 R2,$TRK ;LOAD NEW HEAD ADDRESS 
001360 001304 ATABIT(R2),DRVTYP ;RPO2 OR RPO3 ? 
$ :BR IF RPOS 

000111 002510 #73.,$CYL :RPO2 ALIGNMENT CYLINDER 

6$ ; CONTINUE 
000222 002510 #146. ,$CYL ;RPO3 ALIGNMENT CYLINDER 

002502 SEEK COMMAND 

;CLEAR THE RP11 
:SEEK AND LOAD THE HEAD 
WAIT FOR THE DRIVE TO BECOME READY 
WAIT FOR SWITCH 7 TO BE TOGGLED 
:"EXIT’ FOR COMPATABILITY WITH OTHER TESTS 
;LOCK THE HALT 


023546 oe? SDRVRDY 


8 
EXIT16: 
BR 


000776 


FERRARA AEA AEA AAAAAAAAAERAKKAAAAREEEE 


SaTEST 17 RP11E/DRIVE CONTROL PANEL SWITCH TEST 


:*THIS TEST TEST THE ‘ENABLE/DISABLE* AND ‘READ ONLY’ SWITCHES ON 
:*THE DRIVE CONTROL PANEL AND TESTS THE ‘WRITE LOCKOUT" AND 'LOA' 
*SWITCHES ON THE RP11E/DRIVE CONTROL PANEL. 


OES CP SETI Seti r iri titi titi titi iti titi t iii i tii titi titi titi itt 
TST17: 

033737 

001002 

000137 


001436 001276 
016616 


1 ltt _—_ 
a#SeoPp 


i we TEST SELECTED 


OMP :G0 10 END OF TEST 


SEQ 0075 
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CZRPYD.P11 
015640 
015646 
015654 


015662 


015716 


015722 
015726 
015732 


015736 


016000 


016002 
016006 


016012 


016054 


016056 
016062 


016066 
016070 
016071 
016072 
016074 


22-APR-78 1 
012737 
012737 
012737 


013777 


012706 


104401 
104401 
013746 


104403 
001 


104065 


104401 
013746 


104403 
001 


104066 


104401 
013746 


104403 
001 


001 
104411 
012737 


015716 
015624 
000017 


001102 


001100 


030362 
030441 
001176 


015744 
025654 
001176 
023240 
040000 


030464 
001176 


016020 


040000 


030506 
001176 


016074 


001110 
001106 
001102 


163252 
001200 


001110 
000005 
001334 


001110 
000005 
001334 


001110 


117 


MACY11 30A(1052) 


L 6 
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RP11E/DRIVE CONTROL PANEL SWITCH TEST 


TYP 
TEST17: MOV 
CHECK THE ENABLE/DISABLE SWITCH ON THE DRIVE 
-MSG17B ;"TYPE A CR TO START TEST AFTER EACH SETUP’ 


2$: 


TYPE 


#TESTI7,SLPERR 
#TST17,$LPADR 
#17,STSTNM 


STSTNM,@DISPLAY — 


#EXIT17,BYPASS 
RPADR ,R4 

DPB+1 

DPB+3 

-MSG17A 
#STACK,SP 


-MSG17C 
CHKDRV,~-(SP) 


1 

1 
#3$,SLPERR 
PC,CL 


; SETUP THE ERROR LOOP ADDRESS 

; THE SCOPE LOOP ADDRESS 

TEST NUMBER AND 

THE ERROR FLAG (SERFLG) 

THE TEST NUMBER INTO THE DISPLAY REGISTER 
BYPASS ADDRESS 

BUS ADDRESS 

ANY EXTENDED MEMORY BITS 
;CLEAR ‘MODE’ & ‘HDR’ BITS 

;"RP11E CONTROL PANEL SWITCH TEST’ 
:SETUP THE STACK POINTER 


: "DISABLE DRIVE # 

7;SAVE CHKDRV FOR TYPEOUT 

7: TYPE DRIVE NUMBER 

33G0 TYPE--OCTAL ASCII 

zs: TYPE 1 DIGIT(S) 

7: TYPE LEADING ZEROS 

;WAIT FOR THE ‘CR' 

; CHANGE LOOP ON ERROR ADDRESS 
;CLEAR THE RP11 


RP 
CHKDRV,RPCS+1(R4) SELECT DRIVE 


PC, SAVRP 
#SUOL , SRPDS 
4$ 


65 


MSG17D 
CHKDRV, (SP) 


1 
1 


#5$,SLPERR 
PC,CL 


:SAVE THE RP11 REGISTERS 

:1S THE UNIT ON LINE? 

BRANCH IF NOT 

;SELECTED UNIT ON LINE WITH THE 
:DRIVE DISABLED 

; "ENABLE DRIVE # ‘ 

7:SAVE CHKDRV FOR TYPEOUT 

:: TYPE DRIVE NUMBER 

:;GO TYPE--OCTAL ASCII 

7: TYPE 1 DIGIT(S) 

7: TYPE LEADING ZEROS 

sWAIT FOR THE ‘CR' 

; CHANGE THE LOOP ON ERROR ADDRESS 
CLEAR THE RP11 


LRP 
CHKDRV,RPCS+1(R4) ;RESELECT THE UNIT 


PC, SAVRP 
#SUOL , SRPDS 
RDSW 

66 


;SAVE THE RP11 REGISTERS 

71S THE UNIT ON LINE? 

:BR IF ONLINE 

;SELECTED UNIT NOT ON LINE WITH 
THE DRIVE ENABLED 


CHECK THE DRIVE'S WRITE LOCKOUT SWITCH 


RDSW: 


-MSG17E 
CHKDRV,~(SP) 


1 
1 


#2, SLPERR 


;"SET READ ONLY ON DRIVE ' 
::SAVE CHKDRV FOR TYPEOUT 
:: TYPE DRIVE NUMBER 

::G0 TYPE--OCTAL ASCII 

3: TYPE 1 DIGIT(S) 

:; TYPE LEADING ZEROS 

WAIT FOR ‘CR' 

;LOAD LOOP ON ERROR ADDRESS 


SEQ 0076 





CZRPY-D, RPII-E ee Ur Be & R/W TEST 


CZRPYD P11 
016102 
016106 
016114 
016120 
016126 
016130 


016132 
016136 


016142 


016204 


016206 


016242 
016244 


016266 


016270 
016274 


016300 
016304 
016306 


016310 


016316 


22-APR-78 1 
004737 


104067 


104401 
013746 


104403 
001 


104070 


104401 


104071 
012764 


104072 


012700 
104401 


104401 
006200 
010046 


104403 
003 
001 

006300 

104411 


025654 
001176 
023240 
000400 


030542 
001176 


016150 


000400 


030577 


016214 
000012 
023240 
000400 


000002 
023240 
000400 


000002 
030714 


031014 


000005 
001334 


001110 
000005 
001334 


001110 


001334 


000012 
001334 
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PC,CLRP 


;CLEAR THE RP11 


CHKDRV RPCS#T(RG) SELECT THE DRIVE 


PC,SAV 
#SUWP,SRPDS 
3$ 


67 

»MSG17F 
CHKDRV,-(SP) 
1 

1 


#4$,SLPERR 
PC, CLRP 


AVE THE RP11 REGISTERS 
1S SELECTED UNIT WRITE PROTECTED ? 
:BR IF IT IS 
:SELECTED UNIT WRITE PROTECT DID 
;NOT SET WITH READ ONLY SET 
;"SET READ/WRITE ON DRIVE ' 
7:SAVE CHKDRV FOR TYPEOUT 
7; TYPE DRIVE NUMBER 
:2G0 TYPE--OCTAL ASCII 
3: TYPE 1 DIGIT(S) 
3: TYPE LEADING ZEROS 
WAIT FOR ‘CR° 
CHANGE THE LOOP ON ERROR ADDRESS 
CLEAR THE RP11 


CHEDRV RPCS#TCRG) | ;RESELECT THE DRIVE 


PC, SAV 

#SUWP ,SRPDS 
WRSW 

70 


AVE THE RP11 REGISTERS 
:1S SELECTED UNIT WRITE PROTECTED ? 
:BR IF NOT 
:SELECTED UNIT WRITE PROTECT SET 
sWITH DRIVE WRITE ENABLED 


TEST THE SETTING OF WRITE LOCKOUT AND THE ‘LOA* SWITCHES ON THE 
;RP11E CONTROL PANEL. 


WRSW: 
1$: 


sCHECK THE CYLINDER ‘LOA’ 
WRSW1: 


1$: 


-MSG17G 


#1$,SLPERR 
RPCA(R4) 
PC,SAVRP 
#SUWP,SRPDS 
2$ 


71 

#2, RPCA(R4) 
PC, SAVRP 
#SUWP ,SRPDS 


WRSW1 
72 


#2,R0 
-MSG17H 


-MSG171 
RO 
RO,-(SP) 


:"SET WRITE LOCKOUT °* ,ETC 

WAIT FOR ‘CR* FROM THE OPERATOR 
CHANGE LOOP ON ERROR ADDRESS 
CLEAR THE CYLINDER REGISTER 

SAVE THE RP11 REGISTERS 

71S SELECTED UNIT WRITE PROTECT SET ? 
7BR IF SET 

; SELECTED UNIT WRITE PROTECT SHOULD 
7;BE SET - RPCA EQUAL TO ZERO 

LOAD A 2 INTO RPCA 

SAVE THE RP11 REGISTERS 

:1S SELECTED UNIT WRITE PROTECTED ? 
BR IF NOT PROTECTED 

:SELECTED UNIT WRITE PROTECT IS SET 
WITH EQUAL TO 2. 


SWITCHES 


INITIALIZE SWITCH PATTERN 
:*SET FOLLOWING VALUES IN THE 
sere LOA SWITCHES‘ 


;SETUP PATTERN FOR TYPOUT 

SAVE RO FOR TYPEOUT 

7; TYPE THE SWITCH VALUE 

3:GO0 TYPE--OCTAL ASCII 

3: TYPE 3 DIGIT(S) 

7: TYPE LEADING ZEROS 

;RESTORE THE PATTERN 

sWAIT FOR ‘'CR* FROM THE OPERATOR 


SEQ 0077 





im i i i es a, a. es a a ee: a a a: a a a si a a i, ei i a “a i, a, a ss ac: a as cs a, ss: i a a a ee, ee ks es 
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3888 016320 012737 016320 001110 28: MOV #2$,SLPERR CHANGE LOOP ON ERROR ADDRESS 
3889 016326 010064 000012 MOV RO, RPCA(R4) ;LOAD PATTERN INTO RPCA 
3890 016332 004737 023240 JSR PC, SAVRP SAVE THE RP11 REGISTERS 
3891 016336 032737 000400 001334 BIT #SUUP,SRPDS 1S UNIT WRITE PROTECT SET ? 
3892 016344 001001 BNE 3$ :BR IF SET 
3893 016346 104073 ERROR 73 ;UNIT WRITE PROTECT IS NOT SET 
3894 zRPCA EQUALS CONTENTS OF BOUNDARY 
3895 ; SWITCHES 
3896 016350 062764 000002 000012 38: ADD #2, RPCA(R4) : INCREMENT CYLINDER ADDRESS 
3897 016356 012737 016356 001110 4$: MOV #4$,SLPERR ; CHANGE THE LOOP ON ERROR ADDRESS 
3898 016364 004737 023240 JSR PC, SAVRP SAVE THE RP11 REGISTERS 
3899 016370 032737 000400 001334 BIT #SUWP ,SRPDS :1S UNIT WRITE PROTECT SET ? 
3900 016376 001401 BEQ 5$ BR IF NOT 
3901 016400 104074 ERROR 74 sUNIT WRITE PROTECT IS SET WITH 
3902 zRPCA ONE GREATER THAN BOUNDARY 
3903 ; SWITCH SETTINGS 
3904 016402 006300 5$: ASL RO UPDATE TEST PATTERN 
3905 016404 032700 001000 BIT #B1T09,R0 71S PATTERN EXCEEDED? 
oor 016410 001733 BEQ 1$ BRANCH IF NOT 
tee CHECK DRIVE "LOA' SWITCHES 
3910 016412 005037 001176 WRSW2: CLR CHKDRV START WITH DRIVE 0 
3911 016416 104401 031037 TYPE »MSG17J ; "RESET THE CYLINDER LOA SWITCHES 
3912 ;*SET THE FOLLOWING VALUES IN THE DRIVE 
3913 ; "LOA SWITCHES ' 
3914 016422 012764 000002 000012 MOV #2,RPCA(R4) ;LOAD CYLINDER ADDRESS 
3915 016430 113764 001176 000005 1$: MOVB CHKDRV,RPCS+1(R4) ;SELECT THE FIRST DRIVE NUMBER 
3916 016436 104401 031014 TYPE -MSG171 :"SET SWITCHES TO ° 
3917 016442 013746 001176 MOV CHKDRV,~-(SP) ::SAVE CHKDRV FOR TYPEOUT 
3918 7: TYPE SWITCH SETTING 
3919 016446 104403 TYPOS ::GO TYPE--OCTAL ASCII 
3920 016450 001 -BYTE 1 3 TYPE 1 DIGIT(S) 
3921 016451 001 erte Ff 7; TYPE LEADING ZEROS 
3922 016452 104411 RDLIN sWAIT FOR THE OPERATOR TO ENTER A ‘CR* 
3923 016454 012737 016454 001110 2$: MOV #2$,SLPERR ;LOOP ON ERROR ADDRESS 
3924 016462 004737 023240 JSR PC, SAVRP STORE THE RP11 REGISTERS 
3925 016466 032737 000400 001334 BIT #SUWP ,SRPDS :1S THE SELECTED DRIVE WRITE PROTECTED ? 
3926 016474 001401 BEQ 3$ BR IF NOT 
3927 016476 104075 ERROR 75 ;*SUWP" SET WHEN DRIVE LOA SWITCHES 
3928 ;"EQUAL THE SELECTED DRIVE* 
3929 016500 005737 001176 3$: TST CHKORV ; THROUGH HERE THE FIRST TIME ? 
3930 016504 001004 BNE 4$ BR IF NOT 
3931 016506 012737 000001 001176 MOV #1,CHKDRV SET FOR DRIVE 1 
3932 016514 000406 BR 5$ ; CONTINUE 
3933 016516 006337 001176 4$: ASL CHKDRV :SHIFT TEST ADDRESS 
3934 016522 032737 00001C 001176 BIT #BITO3,CHKORV ;FINISHED WITH ADDRESSES ? 
3935 016530 001025 BNE EXIT17 ;BR IF FINISHED 
3936 016532 104401 031014 5$: TYPE -MSG171 ;"SET SWITCHES TO ° 
3937 016536 013746 001176 MOV CHKDRV,=-(SP) 7; SAVE CHKDRV FOR TYPEOUT 
3938 i: TYPE SWITCH SETTING 
3939 016542 104403 TYPOS 3360 TYPE~-OCTAL ASCII 
3940 016544 001 -BYTE 1 ;; TYPE 1 DIGIT(S) 
3941 016545 001 -BYTE 1 77 TYPE LEADING ZEROS 
3942 016546 104411 ROLIN ;WAIT FOR THE OPERATOR TO ENTER A ‘CR’ 


3943 016550 012737 016550 001110 68: MOV #6$ ,SLPERR CHANGE ERROR LOOP ADDRESS 
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016556 
016562 
016570 
016572 


016574 
016602 
016604 
016606 
016612 


016616 
016616 
016622 


016644 
016644 
016650 
016652 
016656 


016676 


016706 
016712 


016740 


017010 
017014 


017034 
017034 
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004737 
032737 
001001 
104113 


113764 


000137 


104401 
000410 


005737 
001436 
104401 
000407 


013746 
104403 


104401 
000412 


013746 


000407 


104401 


023240 
000400 


001176 


031176 
003676 


016624 


001312 
016660 


001176 
016714 


001112 
001112 


0 
100000 


017016 


017064 


001334 


000005 


001100 
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EST 
117 RP1IE/DRIVE CONTROL PANEL SWITCH TEST SEQ 0079 
JSR PC ,SAVRP STORE THE REGISTERS 
BIT #SUWP ,SRPDS 71S THE DRIVE WRITE PROTECTED ? 
BNE 7$ BR IF IT IS 
ERROR 113 ;*SUWP' NOT SET WHEN DRIVE LOA SWITCHES 
; "GREATER THAN SELECTED DRIVE NUMBER 
7$: MOVE CHKDRV,RPCS+1(R4) ;SELECT THE NEXT DRIVE 
BR 2$ CONTINUE WITH THE TEST 
EXIT17: SCOPE ;LOOP ? 
TYPE -MSG17K ; "END OF CONTROL PANEL TEST - RETURN SWITCHES TO NORMAL" 
JMP START2 RETURN TO THE ‘CONVERSATION MODE’ ENTRANCE 


-SBTTL END OF PASS ROUTINE 


PLRURRRA AERA AREA EAA A ARETE EA AREAE EERE RRR RARE EERE EEE EEE 
;* INCREMENT THE PASS NUMBER ($PASS) 

:*INDICATE END-CF-PROGRAM AFTER 1 PASSES THRU THE PROGRAM 

:*IF THERES A MONITOR GO TO IT 

;*I1F THERE ISN'T JUMP TO RESTART 


SEOP: 
TYPE Sy 2: TYPE ASCIZ STRING 
BR 64$ 3GET OVER THE ASCIZ 
a ASCIZ <15><12><12>/END_ OF PASS/ 
TST @#DRVSEL sANY ORIVES SELECTED 
BEQ 1$ 3NO, BRANCH 
TYPE ,67$ 3: TYPE ASCiZ STRING 
BR 66$ 3:;GET OVER THE ASCIZ 
— -ASCIZ / USING DRIVE/ 
MOV Q@#CHKDRV,-(SP) ;;SAVE @#CHKDRV FOR TYPEOUT 
TYPOS 3:G0 TYPE--OCTAL ASCII 
-BYTE 2 zi: TYPE 2 DIGIT(S) 
-BYTE 0 3; SUPPRESS LEADING ZEROS 
TYPE 69% 23 TYPE ASCIZ STRING 
BR 68$ 3GET OVER THE ASCIZ 
— -ASCIZ / ERRORS DETECTED=/ 
MOV @#SERTTL,-(SP) ;;SAVE @#SERTTL FOR TYPEOUT 
TY°OC 3:60 TYPE--OCTAL ASCII(ALL DIGITS) 
1$: CLR @#SERTTIL ;ZERO ERROR TOTAL 
CLR STSTNM 3:ZERO THE TEST NUMBER 
CLR STIMES + ZERO THE NUMBER OF ITERATIONS 
INC SPASS ; INCREMENT THE PASS NUMBER 
BIC oe :DON' T ALLOW A NEG. NUMBER 
DEC (P 3; LOOP? 
SEOPCT: .WORD 1 
BGT SDOAGN 33 Ves 
MOV (PC)+,a(PC)+ 7 RESTORE COUNTER 
SENDCT: .wORD 1 
SEOPCT 
TYPE 65$ 22 TYPE ASCIZ STRING 


BR 64$ ;GET OVER THE ASCIZ 
+ wa -ASCIZ <15><12>/END OF TEST/ 


TYPE » SENULL : TYPE NULL CHARACTER 


c# 
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017040 013700 000042 $GET42: a#42,R0 ;;GET MONITOR ADDRESS 
5 SDOAGN ;;BRANCH IF NO MONITOR 
R 7;CLEAR THE WORLD 
SENDAD: PC, (RO) ::GO TO MONITOR 
:;SAVE ROOM 


7:FOR 
000240 N 7cACTI1 
SDOAGN: 
000137 J a(PC)+ ; RETURN 
004762 SRTNAD: . RESTART 
017064 ner SENULL: . =1,°1,0 ::NULL CHARACTER STRING 


-SBTTL *** SUBROUTINES **t 
-SBTTL ERROR HANDLER ROUTINE 


PRRRRRAREA AAA A AAA A AAA AA RATATAT ATA T ATA ETA AAA Kee Ree eee eee Eee 
 STHIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
:*SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 

> *AND GO TO TYPERR ON ERROR 
:*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 
Sw HALT ON ERROR 
INHIBIT ERROR TYPEOUTS 
BELL ON ERROR 
LOOP ON ERROR 


N ;;ERROR=EMT AND N=ERROR ITEM NUMBER 


017070 SERROR: 
104407 ::TEST FOR CHANGE IN SOFT-SWR 
001103 7$: SERFLG 3;SET THE ERROR FLAG 
7$ ;;DON'T LET THE FLAG GO TO ZERO 
001102 162034 STSTNM,@DISPLAY ;;DISPLAY TEST NUMBER AND ERROR FLAG 
002000 162024 #B1T10,aSwR ;;BELL ON ERROR? 
1$ 3;NO - SKIP 
001166 . SBELL 7-RING BELL 
3 SERTTL ;;COUNT THE NUMBER OF ERRORS 
(SP) , SERRPC :;GET ADDRESS OF ERROR INSTRUCTION 
001116 #2, SERRPC 
001114 @SERRPC,SITEMB ;;STRIP AND SAVE THE ERROR ITEM CODE 
020000 161764 #B1T13,aSwR ::SKIP TYPEOUT IF SET 
208 3;SKIP TYPEOUTS 
017254 PC, TYPERR ::GO TO USER ERROR ROUTINE 
104401 001172 » SCRLF 


005777 161746 aSwR ;:HALT ON ERROR 
3$ 7:SKIP IF CONTINUE 
7:HALT ON ERROR! 
3: TEST FOR CHANGE IN SOFT-SWR 
001000 161732 : tial + ree SWITCH SET? 


I 
001110 SLPERR, (SP) ;:FUDGE RETURN FOR LOOPING 
017214 005737 001164 : SESCAPE :: CHECK FOR AN ESCAPE ADDRESS 
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017220 001402 5$ ;BR IF NONE 
013716 001164 SESCAPE , (SP) : : FUDGE RETURN ADDRESS FOR ESCAPE 


5$: 
022737 017050 000042 #SENDAD ,a#42 3;ACT-11 AUTO-ACCEPT? 
001001 6$ : BRANCH IF NO 
000000 3:3 Ves 


6$: 
023737 000042 000046 O442 ,a#46 ;ACT11 AUTO MODE? 
001001 12$ NO, RETURN 
000000 HALT ON ERROR 
017252 000002 12$: ; RETURN 


STUUR RARER EAA EAE AAA E AEA EAE AAAARAEEEAEEEAREKERE EEE 


;THIS ROUTINE USES THE "ITEM CONTROL BYTE’ (SITEMB) TO DETERMINE 
;WHICH ERROR IS TO BE REPORTED, IT THEN OBTAINS, FROM THE ‘‘ERROR 
;TABLE’’ (SERRTB), AND REPORTS THE APPROPIATE INFORMATION 

; CONCERNING THE ERROR. 

3; CALL 

3 JSR PC, TYPERR 

5 RETURN 


017254 104412 TYPERR: SAVREG sSAVE RO-R5 
020000 161654 BI #SW13,aSWR ; INHIBIT TYPEOUTS ? 
208 BR IF YES 
001160 STMPO ;CLEAR LOCATION FOR TEST NUMBER 
001102 001160 we ;LOAD TEST NUMBER FOR TYPEOUT 
R 


CLEAR RO FOR ERROR NUMBER 
001114 SITEMB,RO sERROR NUMBER 
— FORM INDEX FOR ERROR TABLE 


RO 


RO 
002514 : #SERRTB,RO FORM ADDRESS 
017336 (RO)+,2$ GET ERROR MESSAGE (EM) POINTER 
3$ ;BRANCH IF THERE ISN'T ONE 
001173 -SCRLF ;"CARRIAGE RETURN = LINE FEED 


: ‘ 0 :"EM"’ POINTER GOES HERE 
017354 : (RO)+,4$ :PICK UP DATA HEADER (DH) POINTER 
5$ ;BRANCH IF NONE 
001173 » SCRLF CARRIAGE RETURN-LINE FEED 


0 :"DH"’ POINTER GOES HERE 
(RO)+,R1 ;PICKUP DATA TABLE (DT) POINTER 
208 BRANCH IF NONE 
R5 SET INDENT SWITCH 
(RO)+,RO ;DATA FORMAT (DF) POINTER 
(RO)+,R2 ;NUMBER OF DH'S TO TYPE 
208 ;BRANCH IF DH NUMBER IS 0 
R5 :NO INDENT 
(RO)+,R3 NUMBER OF DATA WORDS TO TYPE 
208 BR IF NO WORDS TO TYPE 
(RO)+,R4 AND HOW TO TYPE THEM 
001173 -SCRLF 7CR-LF 
005705 R5 : INDENT ? 





On 
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017410 001002 11$ BR IF NOT 
104401 027430 -BLNKS2 ; BLANKS 
006004 118: R4 ;OCTAL OR DECIMAL? 
103403 12$ ;DECIMAL~-BRANCH 
013146 a(R1)+,-(SP) 7;SAVE a(R1)+ FOR TYPEOUT 
104402 3:GO TYPE--OCTAL ASCII(ALL DIGITS) 
000402 13$ 


013146 a(R1)+,-(SP) ;SAVE a(R1)+ FOR TYPEOUT 
104405 ::GO TYPE--DECIMAL ASCII WITH SIGN 
005303 : ;MORE NUMBERS TO TYPE? 
001403 ;NO--BRANCH 
104401 027430 :YES--TYPE SEPARATORS 
000764 11$ ; LOOP 
005302 : sMORE DH' i 
003413 ; NO--BRANC 
104401 001173 YES--START A NEW LINE 
005105 5 ; INDENT? 
001002 ;NO--BRANCH 
104401 027430 . sYES=--TYPE SPACES 
012037 017474 15$: (RO) +, 168 :GET NEXT DH 
104401 :AND TYPE IT 
000000 168: ° 0 :0H POINTER GOES HERE 
017476 000736 10$ LOOP 
017500 104413 208: RESTORE RO-R5 
017502 000207 RTS PC ; RETURN 


~SBTTL TYPE ROUTINE 


SF RAR AAA AAA AAA TEA AEAAAAAA HATER KERAAARRAAAERAEAREEEE 

: *ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A O BYTE. 

*THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 

:*NOTE1: SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 
;*NOTE2: SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
ssWOTES: SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 


CAL 
got) USING A TRAP INSTRUCTION 
TYPE »MESADR ::MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 


TYPE 
MESADR 


0175046 105737 001157 ; STPFLG 7:1S THERE A TERMINAL? 
100002 B 1$ ::BR IF YES 
000000 ee IF NO TERMINAL 
;LEAV 


000407 3$ As 
: RO,-(SP) 7;SAVE RO 
000002 a2(SP),RO ::;GET ADDRESS OF ASCIZ STRING 
: (RO)+,=(SP) ;;PUSH CHARACTER TO BE TYPED ONTO STACK 
48 ;;BR IF IT ISN'T THE TERMINATOR 
(SP)+ 32 1F TERMINATOR POP IT OFF THE STACK 
: (SP)+,R0 7 RESTORE RO 
000002 : #2, (SP) Tipe dl RETURN PC 
017540 000002 7: RETUR 
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017542 


017604 


017610 
017614 
017616 
017622 
017626 


017630 
017634 


017722 


122716 


013746 


105366 
002770 
004737 
105337 
000770 


112716 


000207 


000011 
000200 


017720 


017654 
001156 


001154 
000001 


017654 
017720 


000040 
017654 
000007 


161270 


000002 
000015 


017720 
000012 


017720 


161262 
000002 


000002 


4$: 


sHORIZONTAL TAB 


8$: 
9$: 


BR 
STYPEC: 
B 


1$: 


INCB 
SCHARCNT: WORD 


STYPEX: RTS 


MACY11 30A(1052) 
TYPE ROUTINE 


#HT, (SP) 
#CRLF, (SP) 
5$ 

(SP) + 


SCHARCNT 
2$ 


PC, STYPEC 
SFILLC,(SP)+ 


2$ 

SNULL ,~(SP) 
1(SP) 

6$ 


PC,STYPEC 
SCHARCNT 
7$ 


PROCESSOR 


#* (SP) 
PC,STYPEC 
#7, SCHARCNT 
9$ 


(SP)+ 
$ 


asTPs 
STYPEC 
2(SP) ,aSTPB 
#CR,2(SP) 
1$ 


SCHARCNT 
STYPEX 
#LF ,2(SP) 
STYPEX 
(PC)+ 

0 

PC 


F 7 
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SEQ 0083 


;;BRANCH IF <HT> 
;;BRANCH IF NOT <CRLF> 


3;POP <CR><LF> EQUIV 
3; TYPE A CR AND LF 


3; CLEAR CHARACTER COUNT 

3:GET NEXT CHARACTER 

::GO TYPE THIS CHARACTER 

3218S IT TIME FOR FILLER CHARS.? 
::1F NO GO GET NEXT CHAR. 

::GET # OF FILLER CHARS. NEEDED 
3;AND THE NULL CHAR. 

;;DOES A NULL NEED TO BE TYPED? 
:;BR IF NO--GO POP THE NULL OFF OF STACK 
3:GO0 TYPE A NULL 

3:00 NOT COUNT AS A COUNT 

;; LOOP 


> REPLACE TAB WITH SPACE 

si TYPE A SPACE 

;:BRANCH IF NOT AT 

3: TAB STOP 

3:POP SPACE OFF STACK 

3:GET NEXT CHARACTER 

sc; WAIT UNTIL PRINTER IS READY 


;;LOAD CHAR TO BE TYPED INTO DATA REG. 

i318 CHARACTER A CARRIAGE RETURN? 
:BRANCH IF NO 

:YES~=CLEAR CHARACTER COUNT 


; IT 

ii1S CHARACTER A LINE FEED? 
;:BRANCH IF YES 

;;COUNT THE CHARACTER 

>; CHARACTER COUNT STORAGE 


-SBTTL BINARY TO OCTAL (ASCII) AND TYPE 


PLUeeeeeeeeeeeedeeeeeeeedeeeeeeeeereedeeedeeneeeeeeeeeeeeeeeeer 

;*THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT 
;*OCTAL (ASCII) NUMBER AND TYPE IT. 

ae ee HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 


NUM, =(SP) 


; NUMBER TO BE TYPED 
7;CALL FOR TYPEOUT 
::N=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 
77M=1 OR 0 
7: 17=TYPE LEADING ZEROS 
7; 0=SUPPRESS LEADING ZEROS 
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017724 


020132 


017646 
116637 
112637 


016666 


000000 
000001 020147 
020151 
000002 


000001 020147 
000006 020151 
000005 020146 


020151 


000006 
020150 
020147 
000012 


020150 
177770 


000060 
000040 
020144 
020144 
020146 


000002 000004 


BINARY TO OCTAL (ASCII) AND TYPE SEQ 0084 


> *STYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
s*$STYPOS OR $TYPOC 

> *CALL: 

:* MOV NUM ,-(SP) > ;NUMBER TO BE TYPED 

3 ON 3;CALL FOR TYPEOUT 


-* 
s*STYPOC---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 
s*CALL: 

;* MOV NUM, -(SP) > ;NUMBER TO BE TYPED 
3* TYPOC 3;CALL FOR TYPEOUT 


STYPOS: MOV a(SP),-(SP) sz;PICKUP THE MODE 
1(SP),SOFILL 3;LOAD ZERO FILL SWITCH 
(SP)+,SOMODE+1 ;;NUMBER OF DIGITS TO TYPE 
#2, (SP) 7; ADJUST RETURN ADDRESS 
B STYPON 
STYPOC: #1,SOFILL 7:SET THE ZERO FILL SWITCH 
4 #6, S0MODE +1 3:SET FOR SIX(6) DIGITS 
STYPON: 3:SET THE ITERATION COUNT 
77 SAVE R3 
77 SAVE RG 
7: SAVE R5 
* eaten 3:GET THE NUMBER OF DIGITS TO TYPE 


#6,R4 ;;SUBTRACT IT FOR MAX. ALLOWED 
R4 , SOMODE ;;SAVE IT FOR USE 
SOFILL,R4 3:GET THE ZERO FILL SWITCH 
12(SP),R5 3:;PICKUP THE INPUT NUMBER 
R3 3:CLEAR THE OUTPUT WORD 
7;ROTATE MSB INTO ‘'C"’ 
3:G0 DO MSB 
77 FORM THIS DIGIT 


3;GET LSB OF THIS DIGIT 

7: TYPE THIS DIGIT? 

3:BR IF NO 

3:GET RID OF JUNK 

:; TEST FOR 0 

3;SUPPRESS THIS 0? 

7;BR IF YES 

7:DON'T SUPPRESS ANYMORE 0°S 
7;MAKE THIS DIGIT ASCII 
7:MAKE ASCII IF NOT ALREADY 
7: SAVE FOR TYPING 

::GO TYPE THIS DIGIT 

>;COUNT BY 1 

7;BR IF MORE TO DO 

::BR IF DONE 

3; INSURE LAST DIGIT ISN'T A BLANK 
7:G0 DO THE LAST DIGIT 

7 RESTORE R5 

7 RESTORE R4 

; RESTORE R3 

77;SET THE STACK FOR RETURNING 
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012616 
000002 


000 
000000 


010046 
010146 
010246 
010346 
010546 
012746 
016605 
100004 


010502 


020200 
000020 
000055 


020366 
000040 


020356 


000001 
000060 
000040 


000010 


000001 


177777 


BINARY TO OCTAL (ASCII) AND TYPE 


8$: 
SOCNT: 


SOFILL: . 
SOMODE: . 


- SBTTL 


H 7 
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(SP)+, (SP) 


coo°oo°o 


SEQ 0085 


7 RETURN 

;;STORAGE FOR ASCII DIGIT 

;; TERMINATOR FOR TYPE ROUTINE 
:;OCTAL DIGIT COUNTER 

:;ZERO FILL SWITCH 

:;NUMBER OF DIGITS TO TYPE 


CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 


SRE RERER EAE EAA EEA AEE TEE AAEAAAAAAAAEREAEAEAKKEREEE 


:*THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 5-DIGIT 


:*SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE 
:*NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 
;*BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 
*REPLACED WITH SPACES. 


> *CALL: 
3* 
st 


STYPDS: 


1$: 


4$: 


MOV 
TYPDS 


NUM ,-(SP) 


RO,-(SP) 


20(SP),R5 
1$ 


R5 
#'-,1(SP) 
0 


R 
#SDBLK ,R3 
#' ,(R3)+ 


R2 
~~ ema 


;;PUT THE BINARY NUMBER ON THE STACK 
3:G0 TO THE ROUTINE 


3:PUSH RO ON STACK 

3zPUSH R1 ON STACK 

7;PUSH R2 ON STACK 

3;PUSH R3 ON STACK 

3;PUSH RS ON STACK 

:;SET BLANK SWITCH AND SIGN 
3:GET THE INPUT NUMBER 

7:BR IF INPUT IS POS. 

>;MAKE THE BINARY NUMBER POS. 
3:MAKE THE ASCII NUMBER NEG. 
3:;ZERO THE CONSTANTS INDEX 
7:;SETUP THE OUTPUT POINTER 
3;SET THE FIRST CHARACTER TO A BLANK 
3;CLEAR THE BCD NUMBER 

3:GET THE CONSTANT 

3:FORM THIS BCD DIGIT 

7:BR IF DONE 

3: INCREASE THE BCD DIGIT BY 1 


;;ADD BACK THE CONSTANT 

7: CHECK IF BCD DIGIT=0 

3;FALL THROUGH IF 0 

3:STILL DOING LEADING 0'S? 

;:BR IF YES 

73MSD? 

3:;BR IF NO 

3; YES--SET THE SIGN 

7:MAKE THE BCD DIGIT ASCII 

7:MAKE IT A SPACE IF NOT ALREADY A DIGIT 
7:PUT THIS CHARACTER IN THE OUTPUT BUFFER 
3; JUST INCREMENTING 

7; CHECK THE TABLE INDEX 

3:60 DO THE NEXT DIGIT 

::G60 TO EXIT 

3:GET THE LSD 


CZ 
CZ 


1 7 
CZRPY-D, RP11-E FUNCTIONAL LOGIC & R/W TEST MACY11 30A(1052) 22-APR-78 14:43 PAGE 87 
22-APR-78 14:42 


CZRPYD.P11 
020310 


020366 


020376 
020400 
020402 
020404 


020416 


020464 


020466 
020472 


000764 
105726 
100003 
Ph 9 of 


000004 


000000 
000000 
000000 
000012 
020416 


005037 


000207 


117746 
042716 


177777 


020366 
000002 


020376 


000100 


160454 
177600 


177776 


000004 


020400 
020402 
000060 
000062 


160460 


CONVERT BINARY TO DECIMAL AND TYPE ROUTINE SEQ 0086 


6$ ;;GO CHANGE TO ASCII 
8$: (SP)+ 23 WAS THE LSD THE FIRST NON-ZERO? 
9$ ;BR IF NO 
=1(SP),-2(R3) 3; YES=-SET THE SIGN FOR TYPING 
(R3) ;;SET THE TERMINATOR 
(SP)+,R5 :;POP STACK INTO R5 
(SP)+,R3 ::POP STACK INTO R3 
(SP)+,R2 :;POP STACK INTO R2 
(SP)+,R1 :;POP STACK INTO R1 
(SP)+,RO :;POP STACK INTO RO 
, SOBLK ;:NOW TYPE THE NUMBER 
2(SP),4(SP) ;;ADJUST THE STACK 


(SP)+, (SP) 
;;RETURN TO USER 
SDTBL: 


10. 
SDOBLK: .BLKW 4 
-SBTTL TTY INPUT ROUTINE 


PES SC CSOT PSCC Secret irre iii ect itt i iti i iis i titi i itt i titi titi t) 
-ENABL LSB 

STKCNT: .WORD 0 ;;NUMBER OF ITEMS IN QUEUE 
$TKQIN: .WORD 0 3; INPUT POINTER 

$STKQOUT: .WORD 0 ; OUTPUT POINTER 

STKQSRT: .BLKB 10. 3: TTY KEYBOARD QUEUE 

STKQEND=. 


:*TK INITIALIZE ROUTINE 
s*THIS ROUTINE WILL INITIALIZE THE TTY KEYBOARD INPUT QUEUE 
:*SETUP THE INTERRUPT VECTOR AND TURN ON THE KEYBOARD INTERRUPT 


t*CALL: 
- JSR PC, STKINT 
* RETURN 


STKINT: STKCNT 7;CLEAR COUNT OF ITEMS IN QUEUE 
#STKQSRT,STKQIN ;;MOVE THE STARTING ADDRESS OF THE 
STKQIN,STKQOUT ;;QUEUE INTO THE INPUT & OUTPUT POINTERS. 
#STKSRV @#TKVEC >; INITIALIZE THE KEYBOARD VECTOR 
#200 a#TKVEC+2 ;;""BR’’ LEVEL 4 
asTKB 3;CLEAR DONE FLAG 
#100,a$TKS ENABLE TTY KEYBOARD INTERRUPT 
PC 7 :RETURN TO CALLER 


:*TK SERVICE ROUTINE 

:*THIS ROUTINE WILL SERVICE THE TTY KEYBOARD INTERRUPT 

:*BY READING THE CHARACTER FROM THE INPUT BUFFER AND PUTTING 

:*IT IN THE QUEUE. 

:*IF THE CHARACTER IS A “’CONTROL-C"' ( C) STKINT IS CALLED AND 

;*UPON RETURN EXIT IS MADE TO THE ‘‘CONTROL-C"' RESTART ADDRESS (START2) 


$TKSRV: MOVB a$TKB,-(SP) :;PiCKUP THE CHARACTER 
BIC # C177, (SP) 7;STRIP THE JUNK 
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021627 


001500 


022737 


000002 


022737 


001300 


000003 


021604 
020416 


003676 
000007 


000176 


000012 
001166 


000023 
160352 
160344 
160340 
177600 
000021 
000100 


020376 
000140 


000175 
000040 
177520 
020400 
020400 


020404 


000176 
160224 
160220 


177600 
000007 


001140 


020376 


160316 


020416 
020400 


001140 


MACY11 30A(1052) 
TTY INPUT ROUTINE 


(SP) ,#3 
1$ 


-SCNTLC 
PC, STKINT 
(SP)+ 
START2 
ees 


2 
#SWREG, SWR 
6$ 


#10. ,STKCNT 
3$ 


 $BELL 
(SP)+ 


3 
a$TkB,-(SP) 
# C177, (SP) 
(SP)+,#21 
31$ 
#100,a$TKS 


STKCNT 
(SP) ,#140 
4$ 


(SP) ,#175 
#40, (SP) 


(SP), -@STKQIN 


5$: 


* 
22-APR-78 


QIN 
oe, -#STKQEND 
#STKQSRT,STKQIN 


14:43 PAGE 88 


3318 IT A CONTROL C? 
;;BRANCH IF NO 

7: TYPE A CONTROL=-C ( C) 
3; INIT THE KEYBOARD 
3;CLEAN UP STACK 

3: CONTROL C RESTART 
3:18 IT A CONTROL G? 
3;;BRANCH IF NO 

scIS SOFT-SWR SELECTED? 
3:GO0 TO SWR CHANGE 


31S THE QUEUE FULL? 
;;BRANCH IF NO 
;RING THE TTY BELL 
3 CLEAN CHARACTER OFF OF STACK 
; IT 
::1$ IT A CONTROL-S? 
;:BRANCH IF NO 
DISABLE TTY KEYBOARD INTERRUPTS 
3:CLEAN CHAR OFF STACK 
;:WAIT FOR A CHAR 
;;LOOP UNTIL ITS THERE 
::GET THE CHARACTER 
3;MAKE IT 7-BIT ASCII 
31S IT A CONTROL-Q? 
;;BRANCH IF NO 
;REENABLE TTY KEYBOARD INTERRUPTS 
; s RETURN 
:;COUNT THIS CHARACTER 
3318S IT UPPER CASE? 
; BRANCH IF YES 
7718S IT A SPECIAL CHAR? 
;:BRANCH IF YES 
;;MAKE IT UPPER CASE 
+ AND PUT IT IN QUEUE 
;UPDATE THE POINTER 
3360 OFF THE END? 
BRANCH IF NO 
T:RESET THE POINTER 
3 RETURN 


STUER RARE EERE AREA E AREA AA AAA ERA EAR ARAKKKKEKEKE KEKE 


s*SOFTWARE SWITCH REGISTER CHANGE ROUTINE. 

:*ROUTINE IS ENTERED FROM THE TRAP HANDLER, AND WILL 
s*SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP 
;*CALL WHEN OPERATING IN TTY INTERRUPT MODE. 


SCKSWR: CMP #SWREG, SWR 3:18 THE SOFT-SWR SELECTED 
15$ :EXIT IF NOT 

21S A CHAR WAITING? 

ee EXIT 


53¥ 

3;MAKE IT 7-BIT ASCII 

3:18 IT A CONTROL-G? 

3: 1F NOT, PUT IT IN THE TTY QUEUE 
7 AND EXIT 


asTKs 

15$ 
a$TKB,-(SP) 
# (177, (SP) 
(SP) ,#7 

2$ 


SEQ 0087 
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pRRRRRAA AREA AA AA ATTA AA AT ATA ATA TATE TAA e Tete eee e eee eet eeee eee 
:*CONTROL IS PASSED TO THIS POINT FROM EITHER THE TTY INTERRUPT SERVICE 
;*ROUTINE OR FROM THE SOFTWARE SWITCH REGISTER TRAP CALL, AS A RESULT OF A 


020740 


020762 
020770 


021022 


021024 
021030 


021034 


021070 


021074 


021112 


021114 


021176 


123727 
001674 
005726 
004737 
005077 
112737 


104401 


100375 


117746 
042716 


021627 


000137 


021627 
001005 
104401 
062706 
000737 


021627 


002420 


001134 000001 


020416 
160162 
000001 001135 
021616 
021623 
000176 


021634 
160122 
160116 
177600 
000003 
021604 
000006 
001135 000001 
000100 160054 
003676 
000025 


021611 
000006 


000015 
000004 
000002 160002 
000006 
001173 
001135 000001 
000100 157760 


017654 
000060 


68: 


SGTSWR: 
M 


19$: 
7$: 


SAUTOB,# 
2$ 


(SP)+ 
PC, STKINT 


asTks 
#1,SINTAG 
-SCNTLG 

- SMSWR 
SWREG,-(SP) 
, SMNEW 
-(SP) 

=( 

asTKs 

7$ 


a$TKB,-(SP) 
# €177,(SP) 


(SP) #3 
9$ 

-SCNTLC 
#6,SP 
SINTAG, #1 
8$ 

#100, a$TKS 
START2 


(SP), #25 
10$ 


15 
#100 ,a$TKS 


PC, S$TYPEC 
(SP) , #60 
18$ 


; *CONTROL- Aig Bo. TYPED, AND THE SOFTWARE SWITCH REGISTER BEING SELECTED. 


7;ARE WE RUNNING IN AUTO-MODE? 
;;BRANCH IF YES 

:;CLEAR CONTROL-G OFF STACK 
7;FLUSH THE TTY INPUT QUEUE 
DISABLE TTY KEYBOARD INTERRUPTS 
7;SET INTERRUPT MODE INDICATOR 


7:ECHO THE CONTROL-G ( G) 

3: TYPE CURRENT CONTENTS 

77; SAVE SWREG FOR TYPEOUT 

3:GO TYPE--OCTAL ASCII(ALL DIGITS) 
3;PROMPT FOR NEW SWR 

3;CLEAR COUNTER 

77 THE NEW SWR 

::CHAR THERE? 

zz 1F NOT TRY AGAIN 


:;PICK UP CHAR 
3:MAKE IT 7-BIT ASCII 


3:18 IT A CONTROL-C? 

;:BRANCH IF NOT 

::YES, ECHO CONTROL-C ( C) 

;:CLEAN UP STACK 

;:REENABLE TTY KEYBOARD INTERRUPTS? 
;:BRANCH IF NO 

;;ALLOW TTY KEYBOARD INTERRUPTS 
;:CONTROL-C RESTART 


::1S IT A CONTROL-U? 
;:BRANCH IF NOT 

7:YES, ECHO CONTROL-U ( U) 
:: IGNORE PREVIOUS INPUT 
7:LET'S TRY IT AGAIN 


3:18 IT A <CR>? 

:;BRANCH IF NO 

37 YES, IS IT THE FIRST CHAR? 

> BRANCH IF YES 

77 SAVE NEW SWR 

3;CLEAR UP STACK 

s;ECHO <CR> AND <LF> 

3 RE-ENABLE TTY KBD INTERRUPTS? 
;;BRANCH IF NOT 

3;RE-ENABLE TTY KBD INTERRUPTS 
3 RETURN 

7:ECHO CHAR 

>: CHAR < 0? 

;;BRANCH IF YES 
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021627 000067 (SP) ,#67 3:CHAR > 7? 
18$ ;;BRANCH IF YES 
000060 #60, (SP)+ z:STRIP-OFF ASCII 
000002 2(SP) ::1S THIS THE FIRST CHAR 
17$ ;;BRANCH IF YES 
(SP) ::NO, SHIFT PRESENT 
(SP) :; CHAR OVER TO MAKE 
(SP) :: __ROOM FOR NEW ONE. 
000002 17$: 2(SP) :;KEEP COUNT OF CHAR 
177776 -2(SP), (SP) 7:SET IN NEW CHAR 
B 7$ 7;GET THE NEXT ONE 
001172 18$: , SQUES 32 TYPE 2<CR><LF> 
021244 000720 BR 208 :: SIMULATE CONTROL-U 
-DSABL LSB 


OEP e eC PSPS PPPS SPP P PS Perr rrr rr ricci iii iii iiiiiiiiiitt itt 
:*THIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 

3*CALL: 

hal RDCHR :;GET A CHARACTER FROM THE QUEUE 
hl RETURN HERE >;CHARACTER IS ON THE STACK 

5® ::WITH PARITY BIT STRIPPED OFF 


021246 011646 SRDCHR: MOV (SP) ,-(SP) 3:PUSH DOWN THE PC AND 
016666 000004 000002 0 4(SP),2(SP) 7: THE PS 
005066 000004 4(SP) ::GET READY FOR A CHARACTER 
005046 ~(SP) :;PUT NEW PS ON STACK 
012746 021272 #64$,-(SP) :;PUT NEW PC ON STACK 
000002 ;;POP NEW PC AND PS 


005737 020376 > STKCNT ::WAIT ON A CHARACTER 


020376 STKCNT ;;DECREMENT THE COUNTER 

177072 000004 tee 4(SP) :3GET ONE CHARACTER 

020402 $TKQOUT ;;UPDATE THE POINTER 

020402 020416 $TKQOUT, #STKQEND reDID IT GO OFF OF THE END? 

2s ;;BRANCH IF NO 
020404 020402 #STKQSRT,STKQOUT i gRESET THE POINTER 
021334 000002 2$: 7 RETURN 
OPTS SSeS eT Siecle rit r i rir iri tit titi titi tii ti titi titi titi tt tt ts) 


; #THIS Renesas WILL INPUT A STRING FROM THE TTY 


ROLIN :: INPUT A STRING FROM THE TTY 
RETURN HERE ;:ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 
;; TERMINATOR WILL BE A BYTE OF ALL O'S 


021336 010346 : R3,-(SP) 7:SAVE R3 
C ~(SP) ;;CLEAR THE RUBOUT KEY 
021572 : #STTYIN,R3 :3GET ADDRESS 
021604 : WSTTYINe10.,R3 5 ;BUFFER FULL? 
4% 7 7BR IF YES 
:GO READ ONE CHARACTER FROM THE TTY 
(SP)+,(R3) ::GET CHARACTER 
000177 : #177, (R3) ::1S IT A RUBOUT 
021364 001022 5$ ::BR IF NO 
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005716 ; 4h + ap ae FIRST RUBOUT? 
000134 021570 3;TYPE A BACK SLASH 
021570 


9S 
177777 ’ 3:;SET THE RUBOUT KEY 
: R3 ;;BACKUP BY ONE 
021572 ° 3:STACK EMPTY? 
4$ 7:BR IF YES 
021570 s 3:SETUP TO TYPEOUT THE DELETED CHAR. 
021570 9$ 3:G0 TYPE 
3:GO READ ANOTHER CHAR. 
:;RUBOUT KEY SET? 
$ S3 IF NO 
000134 021570 ° 3; TYPE A BACK SLASH 


021570 
(SP 3;CLEAR THE RUBOUT KEY 
000025 : 3731S CHARACTER A CTRL U? 
8$ :;BR IF NO 
021611 3; TYPE A CONTROL ‘'U"’ 
1$ 3:GO START OVER 
000022 : 3:18 CHARACTER A “* R‘‘? 
3$ ;:;BRANCH IF NO 
7;CLEAR THE CHARACTER 
001173 si TYPE A “’CR'' & ‘LF’ 
021572 3: TYPE THE INPUT STRING 
2s ae yy:4 ANOTHER CHACTER 
001172 : TYPE A 
1$ TI CLEAR Tak BUFFER AND LOOP 
021570 : ;;ECHO THE CHARACTER 
021570 9S 
000015 . 3;CHECK FOR RETURN 
2$ ;;LOOP IF NOT RETURN 
177777 7; CLEAR RETURN (THE 15) 
001174 . 3; TYPE A LINE FEED 
3;CLEAN RUBOUT KEY FROM THE STACK 
s RESTORE R3 
;;ADJUST THE STACK AND PUT ADDRESS OF THE 
000004 000002 4(SP), 2(SP) Ss FIRST ASCII CHARACTER ON IT 
021572 000004 #STTYIN, 4(SP) 
7zRETU 


9$: 0 sri wd FOR ASCII CHAR. TO TYPE 
0 3: TERMINATOR 
STTYIN: 10. 7 ;RESERVE rh BYTES FOR TTY INPUT 
005015 000 S$CNTLC: / C/<15><12> 7; CONTROL ‘ 
000012 $CNTLU: / U/<15><12> >; CONTROL vy" 
000 S$CNTLG: / G/<15><12> >: CONTROL ‘'G'' 
051127 $MSWR: .ASCIZ <15><12>/SWR = / 


020127 $MNEW: .ASCIZ / NEW = 
021646 - EVEN 
-SBTTL SCOPE HANDLER ROUTINE 


021642 


SRR AAA AA AERA A AAA AAA AAA AAAA ERAS 


SeTHIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 
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021646 


022076 


22-APR-78 1 


104407 
032777 
001101 
000416 


013746 


000413 
105737 


040000 


000004 
021706 
177060 
000004 


000004 


001103 
001115 
001000 
001110 


001103 
001162 


004000 
001100 


001104 
001162 


000001 


001102 
001106 


157262 


000004 


001103 
157176 
007106 


157144 


001104 


001104 
001162 


SCOPE HANDLER ROUTINE 


;*AND LOAD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG. (DISPLAY<7:0>) 
;*AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15:08> 
:*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 


3 *SW14=1 LOOP ON TEST 
7*SW11=1 INHIBIT ITERATIONS 
3*Sw09=1 LOOP ON ERROR 
7 *CALL 
al SCOPE 3; SCOPE=I0T 
SSCOPE: 
CKSWR 7:TEST FOR CHANGE IN SOFT-SWR 
1$: BIT #B1T14,aSWR : ; LOOP ON PRESENT TEST? 
BNE SOVER sYES IF SW14=1 
SMARARASTART OF CODE FOR THE XOR TESTERSSAMS 
SXTSTR: BR 6$ 7 1F RUNNING ON THE “’XOR"’ TESTER CHANGE 
SI THIS INSTRUCTION TO A ‘'NOP’’ (NOP=240) 
MOV @#ERRVEC,-(SP) ;;SAVE THE CONTENTS OF THE ERROR VECTOR 
MOV #5$ ,a#ERRVEC 7:SET FOR TIMEOUT 
TST a#177060 3: TIME OUT ON XOR? 
MOV (SP)+,@#ERRVEC ;;RESTORE THE ERROR VECTOR 
BR SSVLAD 3:60 TO THE NEXT TEST 
5$: CMP (SP)+,(SP)+ 3;:;CLEAR THE STACK AFTER A TIME OUT 


MOV (SP)+,a#ERRVEC : sRESTORE THE ERROR VECTOR 
BR 7$ ;LOOP ON THE PRESENT TEST 
6$: ;##AHHEND OF oar FOR THE XOR TESTERS##MM 
2$: TSTB whe LG + HAS AN ERROR OCCURRED? 


BEQ $ IF NO 
CMPB SERMAX,SERFLG i 3MAX. ERRORS FOR THIS TEST OCCURRED? 
BHI 3$ 7BR IF NO 
BIT #B1T09,aSwR >: LOOP ON ERROR? 
BEQ 43 3:BR IF NO 
7$: MOV SLPERR,SLPADR 3:SET LOOP ADDRESS TO LAST SCOPE 
BR SOVER 
4$: CLRB SERFLG :;ZERO THE ERROR FLAG 
CLR STIMES 7:CLEAR THE NUMBER OF ITERATIONS TO MAKE 
BR 1$ ::ESCAPE TO THE NEXT TEST 
3$: BIT #B1T11,aSWR 7: INHIBIT ITERATIONS? 
BNF 1$ 77:8R IF YES 
TST SPASS +a FIRST PASS OF PROGRAM 
BEQ 1$ INHIBIT ITERATIONS 
INC SICNT > INCREMENT ITERATION COUNT 
CMP STIMES,SICNT CHECK THE NUMBER OF ITERATIONS MADE 
BGE SOVER 7:BR IF MORE ITERATION REQUIRED 
1$: MOV #1,SI1CNT 7 ;REINITIALIZE THE ITERATION COUNTER 


MOV SMXCNT,STIMES ;;SET NUMBER OF ITERATIONS TO DO 
SSVLAD: INCB STSTNA ;; COUNT TEST NUMBERS 

MOV (SP), SLPADR ::SAVE SCOPE LOOP ADDRESS 

MOV (SP), SLPERR ::SAVE ERROR LOOP ADDRESS 

CLR SESCAPE 3;CLEAR THE ESCAPE FROM ERROR ADDRESS 

MOVB #1, SERMAX ONLY ALLOW ONE(1) ERROR ON NEXT TEST 
SOVER: MOV STSTNM,@DISPLAY ;; DISPLAY TEST NUMBER 


MOV SLPADR, (SP) 7:;FUDGE RETURN ADDRESS 
RTI s FIXES PS 
SMXCNT: 1 77MAM. NUMBER OF ITERATIONS 


-SBTTL SAVE AND RESTORE RO-R5 ROUTINES 


SEQ 0091 
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22-APR-78 1 SEQ 0092 


PRR RERAAA AERA ARATE ATE EET A THEE TERETE KERR EEE EERE EEE ee 
: #SAVE RO-R5 
> *CALL: 


3* 


SAVREG 
; *UPON RETURN FROM SSAVREG THE STACK WILL LOOK LIKE: 


‘ eTOP===(+16) 
ie +2---(+18) 
pe +4---R5 
3% +6---R4 
3% +8---R3 
3*+10---R2 
3%+12---R1 
3*+14---R0 
022100 SSAVREG: 
010046 
010146 
010246 
010346 
010446 
010546 


RO,-(SP) STACK 
STACK 
STACK 
STACK 
STACK 


STACK 


022134 


022136 


022172 


016646 
016646 
016646 
016646 
000002 


012666 


000002 


000022 
000022 
000022 
000022 


000022 


000022 


+ 
SRESREG: 


-SBTTL ROUTINE TO SIZE MEMORY 


s*RESTORE RO-R5 
ALL: 


RESREG 


22(SP),-(SP) 
22(SP),-(SP) 
22(SP) ,=(SP) 
22(SP),-(SP) 


(SP)+,22(SP) 
(SP)+,22(SP) 
(SP)+,22(SP) 
(SP)+,22(SP) 
(SP)+,R5 
(SP)+,R4 
(SP)+,R3 
(SP)+,R2 
(SP)+,R1 
(SP)+,RO 


: RESTORE PC 
7 RESTORE PS 


MAIN FLOW 
MAIN FLOW 
CALL 
CALL 


OF CALL 
OF CALL 


;;RESTORE PC OF MAIN FLOW 
:;RESTORE PS OF MAIN FLOW 
3:POP STACK INTO R5 
::POP STACK INTO R4 
:;POP STACK INTO R3 
::POP STACK INTO R2 
::POP STACK INTO R1 
::POP STACK INTO RO 


hhh PPP P PPP R RRR RRR RESALES ASASASE SELES ESAS ESSE SEER REESE ERLE SS SY 


s*CALL: 


JSR 
RETU 


PC,$SIZE 


; N 
:+$L STAD WILL CONTAIN: 
WITH KT11 OPTION 


;* 


WITHOUT KT11 OPTION 
;*SLSTBK WILL CONTAIN THE LAST BANK AS A SAF 
:*SKT11 IS THE MEMORY MANAGEMENT KEY 


~~ LAST VIRTUAL ADDRESS OF THE LAST BANK 
== LAST P+? pes ADDRESS OF AVAILABLE MEMORY 
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paaitey s 0 DON'T USE MEMORY MANAGEMENT 

MUST BE SETUP BEFORE THE CALL 
:sB1T15 = 0 DON'T HAVE MEMORY MANAGEMENT OPTION 
; DETERMINED BY ROUTINE 


022174 010046 $SIZE: RO,-(SP) ss RO ON THE STACK 
010146 M 2s R1 ON THE STACK 
010246 33 R2 ON THE STACK 
010346 33 R3 ON THE STACK 
013746 000004 a#ERRVEC, -(SP) ;; PRESENT ERROR VECTOR PS & PC 
013746 000006 a#ERRVEC+2, -(SP) 
022214 010600 MOV SP,RO sSAVE THE STACK POINTER 
33S38T 4 = PS TO THE PRESENT PS 
022216 104400 ;PUSH OLD PSW AND PC ON STACK 
000006 (SP)+, a#ERRVEC+2. 7:SAVE THE PSW IN @#ERRVEC+2 
003776 3776,R1 7;SETUP ADDRESS 
3;USE MEMORY MANAGEMENT? 
3:SET TO USE MEMORY MANAGEMENT 
RE 3;BR IF NO 
022374 000004 #SKTNEX, a#ERRVEC 3:SET FOR TIMEOUT 
177572 a#vsro 3:KT11 ARE YOU THERE? 
100000 022232 #100000 ,$KT11 +: YES--SET KT11 KEY 
-(SP) zs: INITIALIZE FOR ‘PAR’ LOADING 
172340 #KIPARO,R2 7 ADDRESS OF FIRST ‘‘PAR 
000010 # D08,R3 3;LOAD EIGHT “’PAR.'S'' AND EIGHT ‘'PDR.'S" 
077406 177740 : #77406,-40(R2) :;PDR = 4K, UP, READ/WRITE 
(SP), (R2)+ 3;LOAD ‘PAR’ 
000200 #200, (SP) :sUPDATE FOR NEXT ‘PAR’ 
R3,1$ ;LOOP UNTIL ALL EIGHT ARE LOADED 
177600 #177600,-(R2) 3 3 SETUP KIPAR7 FOR I/0 
-(R2) ;SETUP KIPAR6 FOR TESTING 
022332 000004 #23 ,a#MERRVEC >: CATCH TIMEOUT IF NO SR3 
000020 172516 #20, a#SR3 7:ENABLE 22 BIT MODE 
3$ 3; THIS PDP-11 HAS A SR3 REGISTER 
: (SP)+, (SP)+ + CLEAN OFF THE STACK=-NO SR3 
177572 : a#sro TURN ON MEMORY MANAGEMENT 
000004 #$kTOUT J@#ERRVEC “3 3SET FOR TIME OUT 
a#143776 ; TRAP ON NON-EX-MEM 
#40, (R2) «MAKE A 1K STEP 
172356 a#K IPAR7, (R2) :;LAST ONE? 
43 srNO--TRY IT 
$KTOUT: 3:GET LAST BANK+1 
177572 3; TURN OFF MEMORY MANAGEMENT 


100000 022232 S$KINEX: #100000,$KT11  ;;KT11 NON-EXISTENT 
022432 000004 SCORE: — -@#ERRVEC fiat y ot TIMEOUT 
53 ANK 
004000 1$: #4000,R1 :: INCREMENT BY 1K 
000040 #40,R2 331K STEP 
(R1) 3; TRAP ON TIME OUT 
177776 cere 7:LAST ONE 


3:NO--TRY AGAIN 
004000 $CROUT: #4000,R1 
000040 SSIZEX: #40,R2 Leet BACK 
RO,SP RESTORE THE STACK 
022444 012637 000006 (SP) +, a#ERRVEC+2 :; RESTORE ERROR VECTOR 
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022450 
022454 


022500 


022502 


022522 


022524 
022526 
022534 


022536 


022550 
022552 
022554 


022564 


012637 000004 
010137 022476 
010237 022500 


000000 


010046 
016600 
005740 
111000 
006300 
016000 
000200 


000002 


022536 


011646 
016666 
000002 


000004 000002 


022524 
017504 
017750 
017724 
017764 
020152 


020774 
020704 


022136 


MACY11 30A(1052) 


OUTINE TO SIZE MEMORY — 


(SP) + ,@#ERRVEC 


R1,$LSTAD 
R2,$LSTBK 
(SP)+,R3 
(SP)+,R2 
(SP)+,R1 
(SP)+,RO 
PC 


D 8 
22-APR-78 


14:43 PAGE 95 
SEQ 0094 


;:LAST ADDRESS 
;;LAST BANK 

3 RESTORE R3 

; RESTORE R2 

7 RESTORE R1 

7 RESTORE RO 


RTS 

«WORD 0 
-WORD 0 
TRAP DECODER 


SLSTAD: 
SLSTBK: 


- SBTTL 


EPCS CSIC SS ITT e irri rir rir r iii titi iii iiiti iii ii itt) 
:*THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE ‘‘TRAP’’ INSTRUCTION 
;*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
:*OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
:*GO TO THAT ROUTINE. 


STRAP: RO,-(SP) 


;: CONTAINS THE LAST ADDRESS 
>; CONTAINS THE LAST BANK 


::SAVE R80 

7:GET TRAP ADDRESS 

; BACKUP BY 2 

+3GET RIGHT BYTE OF TRAP 
:POSITION FOR INDEXING 

: INDEX TO TABLE 

3:60 TO ROUTINE 


RO 
STRPAD(RO) RO 
RO 


3: THIS IS USE TO HANDLE THE ‘'GETPRI'’ MACRO 


STRAP2: MOV (SP),-(SP) ;;MOVE THE PC DOWN 
MOV 4(SP),2(SP) 7:MCVE THE PSW DOWN 


RTI 


-SBTTL TRAP TABLE 


7 RESTORE THE PSW 


:*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 


;*BY THE ‘’TRAP’’ INSTRUCTION. 
: ROUTINE 


STRPAD: .WORD STRAP2 
STYPE ;;CALL=TYPE 
STYPOC ;;CALL=TYPOC 
STYPOS ;;CALL=TYPOS 
STYPON ;;CALL=TYPON 
STYPDS ;;CALL=TYPDS 


SGTSWR ;;CALL=GTSWR 


SCKSWR ;;CALL=CKSWR 
SROCHR ;;CALL=ROCHR 
SROLIN ;;CALL=RDLIN 
SSAVREG ;;CALL=SAVREG 
SRESREG ;; CALL=RESREG 


TRAP+1 (104401) 
TRAP+2(104402) 
TRAP+3( 104403) 
TRAP +4 (104404) 
TRAP +5 (104405) 


TRAP +6 (104406) 


TRAP+7(104407) 

TRAP+10(104410) 
TRAP#+11(104411) 
TRAP#+12(104412) 
TRAP+13(104413) 





TTY TYPEOUT ROUTINE 

TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
TYPE OCTAL NUMBER (NO LEADING ZEROS) 
TYPE OCTAL NUMBER (AS PER LAST CALL) 
TYPE DECIMAL NUMBER (WITH SIGN) 


GET SOFT-SWR SETTING 


TEST FOR CHANGE IN SOF T-SWR 
TTY TYPEIN CHARACTER ROUTINE 
TTY TYPEIN STRING ROUTINE 
SAVE RO-R5 ROUTINE 

RESTORE RO-R5 ROUTINE 
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;THIS ROUTINE CLEARS THE RP11 AND DETERMINES WHICH DRIVES ARE AVAILABLE. 
;THE TABLE 'DRVSTA' IS LOADED TO REFLECT THE SYSTEM STATUS. 


022566 104412 RPINIT: SAVREG 7SAVE RO-R5 
001326 MOV RPVEC,R1 VECTOR ADDRESS 
(R1)+ SET INTERRUPT ADDRESS TO ZERO 
001332 RPPRIO,(R1) ;RP11 PRIORITY 
DRVTYP :CLEAR DRIVE TYPE STORAGE 
DRVSTA sSET DRIVE STATUS TO OFFLINE 
DRVSTA+2 ;SET DRIVE STATUS TO OFFLINE 
DRVSTA+4 ;SET DRIVE STATUS TO OFFLINE 
DRVSTA+6 ;SET DRIVE STATUS TO OFFLINE 
RPADR ,R4 ;PUT RP11 ADDRESS INTO R4 
000004 WCLEAR,RPCS(R4) ;CLEAR THE RP11 
000004 #CLEAR,RPCS(R4) ;CLEAR THE RP11 AGAIN 
#7,R1 ;"DRVSTA' TABLE INDEX 
022666 : PC,DRVINT CHECK THE DRIVE'S STATUS 
R1 ;DECREMENT THE TABLE INDEX 
1$ BR IF NOT FINISHED 
sRESTORE RO-R5 
022664 000207 pc ; RETURN 


ROUTINE TO CHECK THE DRIVE'S STATUS. DRIVE NUMBER MUST BE IN R1 


022666 110164 000005 DRVINT: MOVB R1,RPCS#+1(R4) ;SELECT DRIVE 
001000 000000 BIT #SUFU,RPDS(R4) ;SEE IF DRIVE UNSAFE 
1$ :BR IF NOT UNSAFE 
177777 +=001370 “prmedaceae ;SET INDICATOR TO ‘UNSAFE’ 


$ sEXIT 
040000 000000 : + cacti 3 yp ONLINE ? 
NOT 
004000 000000 * tac j+-y® — SET ? 


78 
100000 000000 #SURDY,RPDS(R4) ;1S DRIVE READY ? 
4$ :BR IF NOT 
000001 001370 : #1,DRVSTA(R1) ;SET DRIVE INDICATOR TO "ONLINE" 
020000 000000 : #SURPO3 ,RPDS(R4) i. THE DRIVE AN RPOS ? 


4$ BR IF NOT 
001360 001304 ATABIT(R1) ,DRVTYP hd RPO3 INDICATOR 
022766 000207 : PC ;RETURN 


REQUESTED COMMAND. THE RP11 ADDRESS MUST BE IN R4 


022770 104412 :  SAVREG SAVE RO - R5 
: 002500 000005 MO DPB,RPCS+1(R4) SELECT THE DRIVE 
R1 CLEAR R1 
002500 :DRIVE ADDRESS 
023120 P SEE IF DRIVE IS READY 
002504 SWC, -(SP) ; COMPLEMENT THE WORD COUNT 
(SP) ; COMPLEMENT 
000006 (SP)+,RPWC(R4) ;LOAD = WORD COUNT REGISTER 
000010 SBUF,RPBA(R4)  :BUFFER ADDRESS 
000012 SCYL,RPCA(R4)  ;CYLINDER ADDRESS 
000014 SSEC,RPDA(R4) ;SECTOR/TRACK ~~ ae 
023046 012737 024000 023116 #24000, 28 :SET UP FOR. 
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023054 005337 023116 1$: 2$ ane aay re OF 
bees LEA 
023060 001375 1$ -25 MILLISECONDS. 
113764 002500 000005 DPB.RPCS+1(R4) ;SELECT THE DRIVE 
153764 000005 DPB+3,RPCS+1(R4) ;SET ‘MODE’ & ‘HDR’ BITS 
013746 DPB+2,-(SP) ;COMMAND CODE 
153716 DPB+1, (SP) 7 "MEX" BITS 
112664 000004 (SP)+,RPCS(R4) ;START THE COMMAND 
104413 sRESTORE RO = R5 
000207 PC ; RETURN 
023116 000000 2$: 


SEE IF DRIVE IS STILL ONLINE 


023120 CIR: 
012737 023152 001164 #2$,SESCAPE : ESCAPE TO 2$ ON ERROR 
022666 PC,ORVINT CHECK ON THE DRIVE'S STATUS 
023240 PC,SAVRP STORE RP11 REGISTERS IN CASE OF ERROR 
001370 DRVSTA(R1) 71S THE DRIVE STILL ONLINE ? 
3$ :BR IF IT IS 
1$ BR IF DRIVE IS UNSAFE 
76 DRIVE HAS GONE OFFLINE 
: 77 DRIVE HAS BECOME UNSAFE 
001000 155760 : #SWO9,aSWR ;LOOP ON THE ERROR ? 
CIR ;BR IF LOOP 
001360 001310 ATABIT(R1) ,DRVBAD 4 ¥- TO DEASSIGN THE DRIVE 
016616 a#SEOP ;G0 TO THE END OF PASS ROUTINE 


001164 : SESCAPE CLEAR THE ‘ESCAPE’ FLAG 
023200 000207 PC ; RETURN 


: THIS ROUTINE WILL PROVIDE A STALL IN MILLISECONDS | Aas A SPECIFIC 
; AMOUNT Aree ne aan VALUE IS STORED IN ‘STALLT 
: S STALL 


023202 013746 001220 STALL: STALLT,=(SP) :PICKUP THE STALL TIME 
C -(SP) ;CLEAR TEMP. LOCATION 
000001 000002 1$: #1,2(SP) sMORE STALL REQUIRED? 
3$ ;NO-~-BRANCH 
000454 #300.,(SP) :STALL FOR — 1 MILLISECOND 
2s: RO ; NOP KILL TIME 
(SP) ; COUN 
2$ ‘TOOP. IF MORE COUNTS NEEDED 


1$ 
3$: (SP)+, (SP)+ ;CLEAN OFF THE STACK 
023236 000207 PC sEXIT 


;THIS ROUTINE STORES THE RP11E REGISTERS FOR USE BY THE PROGRAM. 

Sy PROGRAM DOES NOT USE THE ‘LIVE’ REGISTERS FOR ERROR DETERMINATION. 
7 CALL 

; JSR PC,SAVRP 

2 RETURN 


023240 010446 SAVRP: R4,~-(SP) SAVE R4 
013704 001324 RPADR ,R4 ;RP11 ADDRESS 
016437 000000 001334 RPDS(R4),$RPDS ;STORE RPDS 

023254 016437 000002 001336 RPER(R4),SRPER ;STORE RPER 
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CZRPYD.P11 
023262 


023344 


023346 


023450 


023452 


023542 
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016437 
016437 
016437 
016437 
016437 
016437 
016437 
016437 
012604 
000207 


105737 
001005 
012702 
012701 
000404 
012702 
012701 
012703 
005737 
100402 
013703 
005046 
016616 
010166 
005737 
001006 
014341 
005302 
001375 
012737 
000207 


104412 


104413 


000004 


000026 


000041 


000144 
044166 


002734 
051546 
157776 
022232 
022476 
000002 


000002 
001322 


177777 


001322 
000041 


000144 
044166 


002734 
05154¢ 
157776 
022232 


022476 


001322 


001340 


001356 


001322 


TRAP TABLE 


MACY11 30A(1052) 


RPCS(R4),$RPCS 
RPWC(R4) ,SRPWC 
RPBA(R4) ,SRPBA 
RPCA(R4) ,SRPCA 
RPDA(R4) ,SRPDA 
RPM1(R4),SRPMI 
SUCA(R4) ,SSUCA 
SILO(R4),$SILO 
(SP)+,R4 

PC 
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RPCS 
RPWC 
RPBA 
RPCA 
RPDA 
RPMI 
SUCA 
SILO 


;RESTORE R4 
;RETURN 


ROUTINE TO MOVE THE LOADER FROM HIGH MEMORY TO JUST ABOVE THE PROGRAM 


MOVLDR: TSTB 
BNE 


4$: 


5$: 


00.,R2 
#BUFFER*200., RI 


2 

#1500. ,R2 
#BUFFER+3000.,R1- 
#157776,R3 
$KT11 

3$ 
SLSTAD,R3 
~(SP) 
2(SP), (SP) 
R1,2(SP) 
LORFLG 


5$ 
~(R3),-(R1) 
R2 


4$ 
#-1,LDRFLG 
PC 


sROUTINE TO RELOCATE THE LOADER 


RESLDR: SAVREG 
TST 


CLR 
RESREG 


LORFLG 
5$ 

41 
1$ 

#100., 
*BUFFERS200. RI 
3$ 

#1500., 


R2 . 
#BUFFER+3000. oR 


#157776,R3 
ores 


4 
SLSTAD,R3 
~(R1),-(R3) 
R2 

4$ 

LORFLG 


;WHO LOADED THE PROGRAM 


;BR IF NOT ‘ABS' 


"ABS" LOADER SIZE 


ao TO HERE 
FINISH 
:'XXDP" SIZE 
;RELOCATE TO HERE (UPPER BOUNDARY) 
;TRY THIS UPPER MEMORY ADDRESS 
MEMORY MANAGEMENT ? 
:BR IF YES 
;USE ACTUAL HIGH ADDRESS 
;CLEAR THE STACK 


: MOVE THE RETURN ADDRESS DOWN THE STACK 
;BEGINNING ADDRESS OF BUFFER 
— ALREADY RELOCATED ? 


IF YES 


:MOVE A WORD 

;COUNT IT 

:BR IF MORE TO GO 

;SET THE LOADER MOVED FLAG 
; RETURN 


TO UPPER MEMORY 


SAVE RO = R5 
LOADER MOVED ? 


;"ABS' LOADER SIZE 


ae FROM HERE 
FINISH 
DP’ SIZE 
;RELOCATE FROM HERE (UPPER BOUNDARY) 
TRY THIS UPPER MEMORY ADDRESS 


“MEMORY MANAGEMENT ? 

:BR IF YES 

;USE ACTUAL HIGH ADDRESS 
MOVE A WORD 

COUNT IT 

:BR IF MORE TO GO 

;CLEAR THE LOADER MOVED FLAG 
;RESTORE RO - R5 


SEQ 0097 





Oona 
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coos 023544 000207 RTS PC ; RETURN 
;ROUTINE TO WAIT FOR DRIVE READY 


023546 032764 100000 000000 DRVRDY: BIT #WSURDY,RPDS(R4) ;DRIVE READY ? 
BNE 6$ :BR IF READY 
001212 TIMOUT,=-(SP) ;WAIT TIME: APPROX 1 SEC 
~(SP) ;CLEAR WORKING LOCATION 
000001 000002 1$: #1,2(SP) ZANY TIME LEFT IN WAIT LOOP ? 
3$ BR IF NOT 
000144 #100., (SP) ; FOR APPROX 1 MS 
100000 000000 2$: #SURDY,RPDS(R4) ; READY 
5$ ; READY 
(SP) ; SOME TIME 
2$ ; NOT FINISHED 
1$ ; MAJOR TIME AGAIN 
023240 : PC, SAVRP ; RP11 REGISTERS FOR ERROR MESSAGE 
023632 001164 #4$,SESCAPE 7;ESCAPE TO 4$ ON ERROR 
00 sDRIVE TIMED OUT 
001164 : CLEAR THE "ESCAPE* FLAG 
000004 sCORRECT THE STACK POINTER 
001000 155270 ;LOOP ON THE ERROR ? 
;LOOP IF SET 
155322 :GO THE "BYPASS ADDRESS 
000004 5$: ;CORRECT THE STACK POINTER 
023662 000207 6$: ; RETURN 


;ROUTINE TO WAIT FOR CONTROLLER READY 


023664 032764 000200 000004 CONRDY: BIT WRDY,RPCS(R4)  ;CONTROLLER READY ? 
BNE 6$ BR IF READY 
001212 TIMOUT ,-(SP) sWAIT TIME: APPROX 1 SEC 
~(SP) ;CLEAR WORKING LOCATION 
000001 000002 1$: #1,2(SP) ANY TIME LEFT IN WAIT LOOP ? 
3$ ;BR IF NOT 
000144 #100. , (SP) ;VALUE FOR APPROX 1 MS 
000200 000004 2$: #RDY,RPCS(R4)  ;CONTROLLER READY ? 
5$ 7;BR IF READY 
;COUNT SOME TIME 
:BR IF NOT FINISHED 
1$ :COUNT MAJOR TIME AGAIN 
023240 : P STORE RP11 REGISTERS FOR ERROR MESSAGE 
023750 001164 , ESCAPE TO 4$ ON ERROR 
101 ;CONTROLLER TIMED OUT 
001164 : CLEAR THE ‘ESCAPE’ FLAG 
000004 #4,SP : CORRECT THE STACK POINTER 
001000 155152 ;LOOP ON THE ERROR ? 
:BR IF LOOPING 
155204 ;"BYPASS* THE TEST 
000004 5$: CORRECT THE STACK POINTER 
024000 000207 6$: ; RETURN 


;ROUTINE TO DETERMINE THE NUMBER OF SECTORS ON THE DRIVE BEING TESTED 
024002 010046 SECNBR: MOV RO,-(SP) ;SAVE RO 





» 
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CZRPYD.P11 22-APR-78 14:42 TRAP TABLE 
024004 012737 117230 001244 


SEQ 0099 


#40600. ,PAKSIZ ;START WITH THE NUMBER OF SECTORS ON 


024046 


024050 


024112 


024114 
024120 
024122 
024126 
024130 
024134 
024136 
024144 


024260 


000207 


010046 


000207 


005737 


162716 


001246 PAKSIZ+2 ;AN RPO2 


002500 
001360 


001244 
001246 


001204 
000020 


001204 
001204 


001400 


001260 
001246 
001244 
001244 


001244 
002504 
001244 


001256 
001254 
001246 


002512 
001250 
000012 


000012 
002513 
002512 
002513 
001252 
000024 


000024 


001304 


001204 


001300 


001254 
002504 


002504 
001244 


1$: 


RO 


DPB,RO 
ATABIT (RO) , /DRVTYP 


PAKSIZ 
PAKSIZ+2 
(SP)+,RO0 
PC 


sROUTINE TO SELECT A PATTERN 


PATSEL: MOV 
1$: INC 


RO,-(SP) 
PATNUM 

#16. ,PATNUM 
2$ 


PATNUM 
PATNUM,RO 
R 


0 
BITS(RO),PATTRN ; 


1$ 
(SP)+,RO 
PC 


;USE RO AS AN INDEX 
;GET THE DRIVE NUMBER 

1S THE DRIVE AN RPO3 ? 
;BR IF NOT 
;DOUBLE THE SECTOR COUNT 
;GET THE CARRY 


:RESTORE RO 
; RETURN 


;SAVE RO 

; INCREMENT THE PATTERN NUMBER 
;NUMBER AT MAXIMUM 

7BR IF NOT 

;START AT ZERO AGAIN 


;SEE IF THE PATTERN IS IN USE 

;CONVERT INTO A TABLE INDEX 

; INUSE INDICATOR SET FOR THIS PATTERN ? 
BR IF NOT 


:RESTORE RO 
; RETURN 


sROUTINE TO INCREMENT THE DISK ADDRESS 


: RETURN + 2 WHEN THE END 


INCADR: 


OPRSEL’ 

5$ 

PAKSIZ+2 

1$ 

PAKSIZ 

5$ 
PAKSIZ,BLKS14 
1$ 


PAKSIZ,$WC 
$wC 

PAKSIZ 

2$ 


WC14,$WC 
BLKS14,PAKSIZ 
PAKSIZ+2 

~ (SP) 

SSEC, (SP) 
INCSEC, (SP) 
(SP) #10. 

3$ 


#10., (SP) 
STRK 

(SP) ,$SEC 
STRK, (SP) 
INCTRK, (SP) 
+ aa 


4 
#20.,(SP) 


OF THE PACK IS REACHED 


sUSING AN OPERATOR SPECIFIED ADDRESS ? 
;BR IF YES 

;SECTORS LEFT ? 

BR IF AN UPPER COUNT 

;LOWER COUNT AT ZERO ? 

;BR IF IT IS 

sENOUGH SECTORS LEFT FOR A FULL TRANSFER ? 
7;BR IF THERE ARE 

sUSE THE RESIDUE COUNT FOR THIS TRANSFER 
;CONVERT TO A WORD COUNT 

;FORCE COUNT TO ZERO 

:GO AND INCREMENT THE ADDRESS 

;USE THE STANDARD WORD COUNT 
;DECREMENT THE TOTAL SECTORS AVAILABLE 
; SUBTRACT ANY CARRY 

;CLEAR THE STACK 

GET CURRENT SECTOR 

;ADD THE SECTOR INCREMENT 

sEXCEED THE MAXIMUM ? 

:BR IF NOT 

;CORRECT THE RESIDUE 

; INCREMENT THE TRACK 

NEW SECTOR ADDRESS 

;GET CURRENT TRACK VALUE 

ADD THE TRACK INCREMENT 

sEXCEED THE MAXIMUM ? 

:BR IF NOT 

CORRECT THE SIZE 
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024264 005237 002510 SCYL : INCREMENT THE CYLINDER ADDRESS 
024270 002513 4$: (SP)+,$TRK NEW TRACK ADDRESS 

024274 6$ sEXIT 

024276 000002 5$: #2, (SP) _ @INCREMENT RETURN - AT END 
024302 000207 6$: PC ; RETURN 


; ROUTINE a oe A BUFFER WITH THE SEQUENTIAL HEADERS FOR CYLINDER 0 
TRACK 


024304 104412 LODSEC: SAVREG SAVE RO - R5 
002506 MO SBUF ,R1 ;BUFFER ADDRESS 
R3 SECTOR COUNTER 
1$: (R1)+ ;UPPER WORD OF HEADER 
(R1)+ :CYLINDER/TRACK WORD OF HEADER 
R3,(R1)+ ;SECTOR ADDRESS 
R3 ; INCREMENT THE SECTOR ADDRESS 
000012 #10.,R3 FINISHED ? 
1$ :BR IF NOT 
sRESTORE RO - R5 
024334 000207 PC RETURN 


FILL THE BUFFER WITH THE SECTOR ADDRESS (CONTAINED IN ‘$SEC") 


024336 104412 FILSEC: SAVREG STORE RO-R5 
CLR R3 :CLEAR THE INDEX 
002512 jalan ; SECTOR ADDRESS 


:BR IF NOT SECTOR ZERO 
000012 #10. ,R3 ;USE 10. AS VALUE FOR SECTOR ZERO 
002504 : SWC ,R2 :WORD COUNT 
002506 SBUF ,R1 ;BUFFER START ADDRESS 
R3,(R1)+ :MOVE DATA INTO THE BUFFER 
R2 ;DECREMENT THE COUNTER 
2$ ;BR IF MORE TO DO 
;RESTORE RO-R5 
024374 000207 RTS PC ; RETURN 


sROUTINE TO FILL THE BUFFER WITH THE TRACK ADDRESS (CONTAINED IN '$TRK") 


024376 104412 FILTRK: SAVREG STORE RO-R5 
024400 043657 MOV #BUFFER+1,R1 ;BUFFER ADDRESS 
002504 $WC,R2 WORD COUNT 
R3 CLEAR THE DATA STORAGE 
002513 : STRK,(R1) ;MOVE TRACK ADDRESS INTO THE BUFFER 
000002 #2,R1 : INCREMENT THE BUFFER POINTER 
R2 ;DECREMENT THE COUNTER 
1$ ;BR IF MORE TO DO 
;RESTORE RO-R5 
024430 000207 RTS PC ; RETURN 


THIS ROUTINE WILL MOVE THE 16 WORDS OF THE 
;DESIRED PATTERN INTO THE DATA BUFFER, 


024432 104412 SETBUF: SAVREG SAVE RO - R5 

024434 013700 001204 MOV PATNUM,RO ;GET THE PATTERN NUMBER 
024440 006300 ASL RO ;CONVERT NUMBER TO INDEX 
024442 013701 002506 MOV SBUF ,R1 FIRST ADDRESS 
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024446 013702 002504 SWC ,R2 WORD COUNT 
016003 001440 1$: PAT.PT(RO),R3  ;PICKUP PATTERN POINTER 
000020 #16. ,R4 PATTERN COUNTER 
23: (R3)+,(R1)+ ;MOVE WORD 'N’ INTO DATA BUFFER 
R2 ;DECREMENT THE COUNTER 
;BR IF DONE 
;DECREMENT THE PATTERN COUNTER 
START PATTERN AGAIN 
2 ; CONTINUE 
3$: sRESTORE RO - R5 
024500 000207 ; RETURN 


: THIS ROUTINE LOADS THE PHYSICAL TRANSFER ADDRESS INTO ‘S$BUF' 


024502 013737 001224 002506 GETBUF: MOV ACTMEM, SBUF ;LOWER 16 BITS OF PHYSICAL ADDRESS 
013746 001226 MOV ACTMEM+2,-(SP) ;UPPER ADDRESS BITS ON THE STACK 
042716 177774 , ;LEAVE ONLY THE LOWER 2 BITS 
006316 ALIGN UPPER ADDRESS BITS 
006316 ; ALIGN UPPER ADDRESS BITS 
006316 ;ALIGN UPPER ADDRESS BITS 

($ ;ALIGN UPPER ADDRESS BITS 
002501 (SP)+,DPB+1 ;LOAD ‘MEX’ BITS 
002504 $WC,-(SP) ;PUT WORD COUNT ON THE STACK 
(SP) ;DOUBLE THE WORD COUNT 
001224 (SP)+,ACTMEM :FORM NEXT STARTING ADDRESS 
001226 ACTMEM+2 ;ADD ANY CARRY 
001226 001236 ACTMEM+2,HIMEM+2 ;EXCEEDING HIGHEST BANK ADDRESS 
1$ ;BR IF HIGHER 
2s ;BR IF LOWER 
001224 001234 ACTMEM,HIMEM ; CHECK LOWER 16 BITS 
2$ ;BR IF LOWER 
001240 001224 1$: LOMEM, ACTMEM :RESET ADDRESS 
001242 001226 LOMEM+2,ACTMEM+2 ;UPPER ADDRESS BITS 
GE TBUF TRY AGAIN 
024612 000207 2$: PC ; RETURN 


THIS ROUTINE COMPARES A 16 WORD DATA PATTERN AGAINST THE 
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5213 ;DATA BUFFER. THE PATTERN NUMBER IS IN ‘PATNUM’ 
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5214 
5215 024614 104412 DATCMP: SAVREG 7 SAVE RO-R5 
5216 024616 005737 001222 TST MMACTV s;MEMORY MANAGEMENT ACTIVE ? 


5217 024622 001510 BEQ 2$ ;BR IF NOT 
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024624 005037 172340 KIPARO ;LOAD ADDRESS REGISTER 0 
#200, KIPAR1 LOAD ADDRESS REGISTER 1 
#400 ,KIPAR2 ;LOAD ADDRESS REGISTER 2 
177600 #177600,KIPAR7 ;ACCESS TO 1/0 PAGE 
-(SP) MAKE ROOM ON THE STACK 
~(SP) MAKE ROOM ON THE STACK 
002506 SBUF ,2(SP) sLOWER 16 BITS OF STARTING ADDRESS 
002501 DPB+1, (SP) ;UPPER ADDRESS BITS 
(SP) RIGHT JUSTIFY THE ADDRESS BITS 
RIGHT JUSTIFY THE ADDRESS BITS 
RIGHT JUSTIFY THE ADDRESS BITS 
RIGHT JUSTIFY THE ADDRESS BITS 
000006 ;LOAD COUNTER 
: ; CONVERT ADDRESS TO BLOCK ADDRESS 
000002 ;LOWER 16 BITS 
3 :DECREMENT THE COUNTER 
1 > CONTINUE UNTIL FINISHED 
000177 000002 #177,2(SP) ;CLEAR LOWER BLOCK ADDRESS BITS 
2(SP) .KIPARS LOAD ADDRESS REGISTER 3 
#200,2(SP) : INCREMENT BLOCK ADDRESS BY 4k 
2(SP) ,KIPAR4 ;LOAD ADDRESS REGISTER # 4 
#77406,KIPORO- ; DESCRIPTOR REGISTER # 0 
#77406,KIPDR1 ; DESCRIPTOR REGISTER # 1 
#77406,KIPDR2~ ; DESCRIPTOR REGISTER # 2 
#77406,KIPOR3 ; DESCRIPTOR REGISTER # 3 
#77406,KIPDR4 =; DESCRIPTOR REGISTER # 4 
#77406 ,KIPDR7 AD DESCRIPTOR REGISTER # 7 
002504 010000 pet ane, ZWAS TRANSFER GREATER THAN 4K ? 
5 N 
000200 000002 #200,2(SP) : INCREMENT THE ADDRESS BY 4K 
172352 2(SP) ,KIPARS LOAD ADDRESS REGISTER # 5 
172312 #77406,KIPDR5  ;LOAD DESCRIPTOR REGISTER # 5 
: SBUF ,R1 ;LOAD STARTING ADDRESS 
001222 MMACTV ;MEMORY MANAGEMENT ACTIVE ? 
CMPAR BR IF NOT 
140000 #140000,R1 CHANGE PHYSICAL BASE TO VIRTUAL BASE 
060000 * R1 START AT VIRTUAL 12K 
000004 #4,5S CORRECT THE STACK POINTER 
025110 000004 re ERRVEC :CHANGE THE ERROR VECTOR 
000020 172516 #20 ,a#SR3 7 ENABLE oT ADDRESSING MODE 
4$ :BR IF AN 11/70 
000004 : #4,SP CORRECT THE STACK POINTER 
000004 : WERRVEC+2,ERRVEC ;RESTORE THE ERROR VECTOR 
#1,a#SRO ;ENABLE MEMORY MANAGEMENT 
SRPWC,CACNT :WORD COUNT TO WORKING LOCATION 
SWC. CMCNT CALCULATE ACTUAL WORDS TRANSFERED 
SCYL,CMCYL :CYLINDER ADDRESS 
STRK,CMTRK ; TRACK ADDRESS 
4 SSEC,CMSEC SECTOR ADDRESS 
025416 : CMP.CT,LIMIT DISPLAY LIMIT 
I MIT ;CONVERT PARAMETER INTO LIMIT VALUE 
STARTING ADDRESS OF SECTOR BUFFER 
CLEAR “FIRST ERROR* INDICATOR 
ERCTR CLEAR ERROR COUNTER 
025420 000400 CMCNT #256. :1S BUFFER SIZE GREATER THAN ONE SECTOR ? 
025222 “$ :BR IF IT IS 
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025410 
025412 


025430 


025432 


025466 
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013702 


000207 
000000 


000000 


005737 


000412 


025420 
000400 
025420 
001204 
000020 
001440 
000010 


025432 


025630 
025420 


025424 
025424 


025424 
025426 
025426 
025426 
025422 
025166 
001222 


177572 


025412 
001222 
025446 


000102 
017254 


153646 


000012 


000024 


1$: 


FRSTER: 


ERCTR: 
LIMIT: 
CMCNT: 
CMCYL: 
CMSEC: 
CMTRK: 
CMBUF : 


s TYPE 
CMPRT: 
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TABLE 


CMCNT,R2 
2$ 


#256. ,R2 
R2,CMCNT 
PATNUM,R4 

R4 

#16. ,R3 
PAT.PT(R4) ,R5 
ce 


2 
#SWO03,aSWR 
2$ 
PC,CMPRT 
Re 


PC,ENDCMP 
CMCNT 
CMPRX 
CMSEC 
CMSEC,#10. 
CMSTR 
CMSEC 
CMTRK 
CMTRK #20. 
CMSTR 
CMTRK 


CMCYL 
CMSTR 


— 


a#SRo 
PC 


0 
0 
0 
0 
0 
0 
0 
0 


DATA COMPARE ERRORS 


FRSTER 
CMPRT1 
MMACTV 

1$ 

#. ,SERRPC 
#102, S1TEMB 
PC, TYPERR 
2$ 


LESS THAN, USE REMAINING BUFFER 


; COMPARE SECTOR 

;DECREMENT WORD COUNT 

PATTERN NUMBER 

;GENERATE INTO AN INDEX 

3R3_ IS PATTERN POSITION COUNTER 
PATTERN ADDRESS 

;COMPARE BUFFER WITH PATTERN 


:TYPE THE ERROR 


sDECREMENT SIZE COUNT 


:BR WHEN AT END 

;DECREMENT PATT POS COUNT 
;BR IF NOT AT END OF PATT 
RESTART THE PATTERN 

PRINT LAST LINE (IF ERRORS) 
:AT END OF BUFFER 

BR IF AT END 

: INCREMENT SECTOR 

:SECTOR GREATER THAN MAX ? 
:BR IF NOT GREATER THAN MAX 
CLEAR SECTOR ADDRESS 

: INCREMENT TRACK 

> TRACK GREATER THAN MAX ? 
:BR IF NOT GREATER 

RESET RACK ADDRESS 

; INCREMENT CYLINDER ADDRESS 
: CONTINUE WITH COMPARE 
sRESTORE RO - R5 

;MEMORY MANAGEMENT ACTIVE ? 
:BR IF NOT 

TURN OFF MEMORY MANAGEMENT 


FIRST ERROR INDICATOR 
NUMBER OF ERRORS 

DISPLAY LIMIT 

:WORD COUNT 

: CYLINDER ADDRESS 

;SECTOR ADDRESS 

; TRACK ADDRESS 

:BEGINNING ADDRESS OF SECTOR 


sFIRST ERROR? 


:BR IF NOT 

MEMORY MANAGEMENT ACTIVE ? 
:BR IF ACTIVE 

PC FOR ERROR MESSAGE 


:COMPARSION ERROR MESSAGE NUMBER 
REPORT THE ERROR 
; CONTINUE 


SEQ 0105 
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025470 


025626 


025630 
025634 
025636 
025644 
025646 
025652 


025654 


025676 


025700 
025706 


025712 
025716 
025720 
025726 


005037 


000207 


005737 
001406 
012737 
104105 
005037 
000207 


012764 


000207 


012737 
004737 


005737 
100060 
023727 
101003 


177572 
025474 
000103 
017254 
177777 
001222 


000001 
025416 


025416 
000020 
001122 
000002 
177776 
177776 
000104 


017254 
025414 


025414 
025646 
001164 


000001 


000001 


000200 
022174 


022232 
022500 


153360 


001122 
001124 
001126 
001114 


001164 


000004 


000004 


022232 


001540 


TEST 


MACY11 30A(1052) 
TRAP TABLE 


1$: a#SRO 
#. ,SERRPC 
#103, SI1TEMB 
PC, TYPERR 
2$: #-1,FRSTER 
MMACTV 
CMPRTi 
#1,a#SRO 
LIMIT 
1$ 
LIMIT 
$ 


2 
1$: #SW04 ,aSWR 
3$ 


2s: R1,$BDADR 
#2,$BDADR 
-2(R5) ,SGDDAT 
-2(R1),$BDDAT 
#104,SI1TEMB 
PC, TYPERR 

3$: ERCTR 
PC 


M 
CMPRT1: 
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TURN OFF MEMORY MANAGEMENT 

PC FOR ERROR MESSAGE 

;COMPARSION ERROR MESSAGE WITH MM REGISTERS 
REPORT THE COMPARSION ERROR 

;SET FIRST ERROR INDICATOR 

s;MEMORY MANAGEMENT ACTIVE ? 


If OT 


7 BR 

;ENABLE MEMORY MANAGEMENT AGAIN 
;TYPEOUT LIMIT REACHED ? 

;BR IF IT HAS 

;DECREMENT LIMIT COUNTER 

7BR IF NOT AT LIMIT 

;PRINT ALL DATA COMPARE ERRORS ? 
:BR IF NOT 

;ADDRESS OF BAD WORD 

;ADJUST ADDRESS 

;GOOD DATA 

;BAD DATA 

sERROR TABLE INDEX 

s;DISPLAY WORD THAT DIDN'T COMPARE 
; COUNT THE ERROR 

; RETURN 


LAST LINE OF COMPARE ERROR REPORTING 


ENDCMP: TST 
BEQ 
MOV 
ERROR 
1$: CLR 
2$: RTS 
;ROUTINE TO CLEAR THE RPI1E 


[THE FIRST "CLEAR" 


ERCTR 

2$ 
#1$,SESCAPE 
105 

SESCAPE 

PC 


TERMINATES ANY ORDER WHICH IS IN PROGRESS. 


;SEE IF ANY ERRORS 

;BR IF NONE 

7: ESCAPE TO 1$ ON ERROR 

;NUMBER OF COMPARE ERRORS 
;CLEAR THE ERROR ESCAPE ADDRESS 
;RETURN 


THE SECOND 


a han? a THE "PROGRAM ERROR’ WHICH MAY HAVE BEEN SET BY THE FIRST 


*CLEAR' 
“NOTE: 


CLRP: 
(SP), (SP) 
(SP), (SP) 
(SP), (SP) 


$ 
#CLEAR, RPCS(R4) 
PC 


R4 MUST CONTAIN THE BASE ADDRESS OF THE RP11E 


#CLEAR,RPCS(R4) ;CLEAR THE RP11 


— FOR... 


.-AT LEAST 

-4 MICROSECONDS. 
SCLEAR THE RP11 
;RETURN 


ROUTINE TO SIZE MEMORY AND TO SETUP FOR TEST 14 


#B1T07,$KT11 
PC,$SIZE 


$kT11 

2$ 

SLSTBK #1540 
1$ 


SIZMEM: MOV 
6$: R 


;TELL THE *SIZE* ROUTINE TO USE MM 
FIND OUT HOW MUCH MEMORY AND IF THE 


SYSTEM HAS A KT11 

:00ES THE SYSTEM HAVE A KT11 ? 
7;BR IF NOT 

;MORE THAN 28K ON THE SYSTEM ? 
:BR IF MORE THAN 28K 
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025730 005037 022232 $KT11 ;CLEAR MEMORY MANAGEMENT INDICATOR 
6$ ;D0 IT AGAIN WITH MEM. MAN. DESELECTED 
157776 001302 1$: #157776,MEMSIZ ;ADDRESS OF LAST NON MEMORY MANAGEMENT LOCATION 
022500 001230 SLSTBK ,MAXMEM ;HIGH MEMORY BANK ADDRESS 
MAXMEM+2 ;CLEAR UPPER MEMORY ADDRESS BITS 
MAXMEM ;CONVERT THE BANK COUNT INTO AN 
MAXMEM+2 ;ABSOLUTE MEMORY ADDRESS 
MAXMEM ; CONVERT THE BANK COUNT INTO AN 
MAXMEM+2 ;ABSOLUTE MEMORY ADDRESS 
MAXMEM ; CONVERT THE BANK COUNT INTO AN 
MAXMEM+2 ;ABSOLUTE MEMORY ADDRESS 
MAXMEM ;CONVERT THE BANK COUNT INTO AN 
MAXMEM+2 ;ABSOLUTE MEMORY ADDRESS 
MAXMERM ;CONVERT THE BANK COUNT INTO AN 
MAXMEM+2 ;ABSOLUTE MEMORY ADDRESS 
MAXMER ;CONVERT THE BANK COUNT INTO AN 
MAXMEM+2 ;ABSOLUTE MEMORY ADDRESS 
001230 SLSTAD,MAXMEM ;ADD THE SIZE OF THE LAST BANK 
MAXMEM+2 ;HANDLE ANY CARRY 
020000 001264 ~ Yi otemaaae +a FOR MAXIMUM TRANSFER SIZE 
sEx 
022476 001302 : SLSTAD,MEMSIZ ;HIGH NON MEMORY MANAGEMENT ADDRESS 
001230 SLSTAD,MAXMEM 7HIGH NON MEMORY MANAGEMENT ADDRESS 
MAXMEM+2 ;DON'T NEED THE UPPER WORD 
001264 MAXMEM ,MAXWC ;CONVERT MEMORY SIZE TO WORD COUNT 
043656 001264 #BUFFER ,MAXWC ;SUBTRACT STARTING ADDRESS OF BUFFER 
;CLEAR THE ‘'C’ BIT 
001264 MAXWC ; CHANGE TO WORD COUNT 
000041 41 : SEE WHICH LOADER 
4$ ;BR IF ‘XxDP* 
000144 001264 $$: ec centmnate Kas LOADER SIZE (PLUS A LITTLE BIT) 


sEXI 
002734 001264 4$: #1500. .MAXWC ;"XXDP* SIZE 
026146 000207 5$: PC ; RETURN 


THIS ROUTINE IS USED TO ENSURE THAT THE BUS ADDRESS 
:OF THE RP11 IS SETUP TO READ THE PROPER VALUE. 

:1T WILL ALSO READ THE ADDRESS FROM THE TTY IF 
REQUIRED. 

NOTE: THIS ROUTINE DESTROYS RO - R4 


026150 005737 001216 GETADR: TST BUSADR ; INPUT FROM TTY REQUESTED? 
BEQ 3$ ;NO-~BRANCH 
001216 :YES--CLEAR THE REQUEST FLAG 
001173 1$: ; 
032162 ADR 
026172 013746 001324 RPADR,~(SP) 1: SAVE RPADR FOR TYPEOUT 
::RP11 ADDRESS 
026176 104403 ::G0 TYPE--OCTAL ASCII 
026200 . 6 3 TYPE 6 DIGIT(S) 
026201 001 ° 1 7; TYPE LEADING ZEROS 
026202 031322 » SLASH el 
026206 GET THE ENTRY 
026210 (SP)+,R1 STARTING ADDRESS OF INPUT ASCII STRING 
026212 027136 RO,CK.NUM ;CHECK THE NUMBER 
026216 026162 ILLEGAL INPUT 
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026220 026224 ; TERMINATED WITH A ‘CR’ 
;NO ENTRY = ‘CR" ONLY 
R2,RPADR STORE THE ADDRESS 
3$: ERRVEC,R1 SAVE THE ERROR VECTOR 
000004 #4$ ,ERRVEC ;SETUP FOR TRAP 
@RPADR CHECK FOR RP11 
000004 R1,ERRVEC ;RESTORE ERROR VECTOR 
PC ; RETURN 
000004 : R1,ERRVEC RESTORE ERROR VECTOR 
(SP)+,(SP)+ ;CLEAN OFF THE STACK 
026272 001164 #5$,SESCAPE ;;ESCAPE TO 5$ ON ERROR 
1 ;REPORT THE ERROR 
001164 : SESCAPE > CLEAR ERROR ESCAPE ADDRESS 
000042 a#42 :1S THERE A MONITOR? 
1$ ;NO--GO ASK FOR ADDRESS 
016776 SEOPCT NO PASSES 
026310 000137 016616 SEOP :GO TO END OF PROGRAM 


; THIS ROUTINE ALLOWS THE OPERATOR TO CONTROL THE PROGRAM 
: (CONVERSATION MODE) 


026314 104401 031324 ENTPRM: te ENTNM ; "ENTER TEST NUMBER' 
R :GET THE ENTRY 
(SP)+,R1 STARTING ADDRESS OF INPUT ASCII STRING 
027136 JS RO,CK.NUM ; CHECK THE NUMBER 
; ILLEGAL INPUT 
; TERMINATED WITH A ‘CR’ 
:NO ENTRY = ‘CR* ONLY 
000020 : #STN,R2 ;VALID NUMBER ? 
ENTPRM BR IF NOT 
R2 : CONVERT INTO A BIT INDEX 
001400 001276 BITS(R2),TSTNMS ; TEST SELECTION BIT 
R2 ; CHANGE BACK INTO A WORD COUNT 
R2,-(SP) SAVE THE TEST NUMBER ENTRY 
ENTPR1 ;GET THE DRIVE NUMBER 
017777 001276 2$: #17777,TSTNMS ;SELECT ALL TESTS 
M #-1,-(SP) sALL TESTS SELECTED 
ENTPR1: DRVSEL CLEAR DRIVE SELECTION WORD 
PC,RPINIT :CHECK THE DRIVE STATUS 
001210 #202. ,MAXCYL ;ASSUME ONLY RPO2'S 
001304 or SEE WHICH TYPE 


:BR IF ONLY RPO2'S 
000625 001210 #405. ,MAXCYL ;RPO3'S 
031352 1$: -DRVNM ENTER DRIVE NUMBER 
:GET THE ENTRY 
(SP)+,R1 . : STARTING ADDRESS OF INPUT ASCII STRING 
027136¢ RO,CK.NUM :CHECK THE NUMBER 
: ILLEGAL INPUT 
TERMINATED WITH A ‘CR’ 
;NO ENTRY = ‘CR* ONLY 
000010 : + »R2 :VALID ENTRY ? 
1$ NOT 


:BR IF 
001360 001312 ATABIT(R2),DRVSEL ;DRIVE SELECTION BIT 
001370 DRVSTA(R2) 18 DRIVE ONLINE 
8$ BR IF ONLINE 
026472 104401 031377 . DRIVE ; DRIVE’ 
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026476 


026612 
026616 


026732 


105762 


013746 
104403 
005 


104401 


001370 
027312 


027276 
001173 


000015 
001370 
001360 
000010 
000014 
031406 
000131 


031447 
001264 


001173 
031523 


027136 


001264 
001262 
001256 
031565 


027136 


001300 
031640 


000131 
031713 


001312 


TRAP 


8$: 
B 
ENTPR2: 
R 


MACY11 30A(1052) 
TABLE 


4 
ENTPR3: 


1$: M 
ENTPR4: 


DRVSTA(R2) 
3$ 


6$ 

#15, (SP) 
1$ 
DRVSTA(R1) 
7$ 


ATABIT(R1) 
R1 
R1,#8. 

$ 


6 

#14, (SP)+ 
ENTPRX 

. CHNGPA 


a(SP)+,#'Y 


ENTPRX 
MXWRDS 


MAXWC,-(SP) 


5 


0 
- SCRLF 
-ENTWC 


(SP)+,R1 
RO,CK.NUM 


R2,MAXWC 
1$ 
R2,LMT8K 
1$ 


R2,WC14 
. CHNGPT 


(SP)+,R1 
RO,CK.NUM 


R2,PATTRN 
, CHNGAD 


a(SP)+,#'y 


ENTPRX 
,ONEPAT 
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;CHECK DRIVE STATUS AGAIN 

;BR IF UNSAFE 

> OFFLINE‘ 

3 CONTINUE 

: "UNSAFE' 

7 CR-LF 

; TRY AGAIN 

;CLEAR R1 - USE IT AS AN INDEX 
sALL TESTS SELECTED ? 


E 
. 16, OR 17 SELECTED ? 
:BR IF YES, SPECIFIC ORIVE NUMBER REQUIRED 
71S THE DRIVE ONLINE ? 
;BR IF NOT 
/DRVSEL ;SET THE SELECT BIT FOR THE DRIVE 
INCREMENT THE DRIVE INDEX 
REACHED MAXIMUM ? 
:BR IF NOT 
i1S ye 14 SELECTED ? 
:BR IF NOT 
CHANGE PARAMETERS FOR TEST 14 ? 
:GET THE RESPONSE 
;'Y" ENTERED ? 
:BR IF NOT 
; "MAXIMUM WORD COUNT FOR TEST 14: ' 
::SAVE MAXWC FOR TYPEOUT 
3;MAXIMUM WORD COUNT FOR TEST 14 
2:G0 TYPE--OCTAL ASCII 
3: TYPE 5 DIGIT(S) 
—_— LEADING ZEROS 
> CR=L 


: "ENTER WORD COUNT FOR TEST 14° 
:GET THE ENTRY 
STARTING ADDRESS OF INPUT ASCII STRING 
: CHECK THE NUMBER 
: ILLEGAL INPUT 
TERMINATED WITH A ‘CR* 
;NO ENTRY = ‘CR’ ONLY 
;VALUE TOO LARGE ? 
BR IF TOO LARGE 
NEW WORD COUNT LARGER THAN 8K ? 
:BR IF LARGER 
;LOAD NEW WORD COUNT 
sENTER PATTERN CODE 
READ THE ENTRY 
STARTING ADDRESS OF INPUT ASCII STRING 
; CHECK THE NUMBER 
7 ILLEGAL INPUT 
TERMINATED WITH A ‘CR’ 
;NO ENTRY = ‘CR* ONLY 
PATTERN CODE 
USE A SPECIFIC DISK ADDRESS ? 
; READ THE ENTRY 

:"Y" ENTERED ? 

BR IF NOT 

iA SINGLE DATA PATTERN MUST HAVE BEEN SPECIFIED; 


SEQ 0109 
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026736 


027070 


027072 


027120 
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104401 
104411 
012601 
004037 
026736 
026760 
026736 
020237 
101364 
010237 
104401 
104411 
012601 
004037 
026772 
027014 
026772 
020227 
101364 
010237 


000207 


000200 


032054 


027136 


001210 


001266 


032105 


027136 


000023 


001270 


032133 


027136 


000011 


001272 
177777 


000060 
000067 


177770 


001260 


CZRPY-D, RP11-E FUNCTIONAL LOGIC & R/W "to 
PYD.P11 42 


1$: 


ENTPRX: 


MACY11 30A(1052) 


TABLE 


MOV 
RTS 


ENTCYL 


(SP)+,R1 
RO,CK.NUM 


R2,MAXCYL 
1$ 


R2,SCYL 
ENTRK 


(SP)+,R1 
RO,CK.NUM 


R2,#19. 
3$ 


R2,STRK 
»ENTSEC 


(SP)+,R1 
RO,CK.NUM 


R2,#9, 
5$ 
R2,SSEC 


#-1,OPRSEL 
PC 


¢G 9 
22-APR-78 


14:43 PAGE 111 


:'IF NOT, PATTERN O (ALL _ ZEROS) WILL BE USED" 
; ENTER CYLINDER ADDRESS 


;GET THE ENTRY 


ZSTARTING ADDRESS OF INPUT ASCII STRING 
; CHECK THE NUMBER 

ILLEGAL INPUT 

; TERMINATED WITH A ‘CR’ 

3NO ENTRY = ‘CR' ONLY 

;TOO LARGE ? 

:BR IF TOO LARGE 

;LOAD CYLINDER ADDRESS 

; "ENTER TRACK ADDRESS' 

:GET THE ENTRY 

;STARTING ADDRESS OF INPUT ASCII STRING 
: CHECK THE NUMBER 

: ILLEGAL INPUT 

TERMINATED WITH A ‘CR‘ 

7NO ENTRY = "CR" ONLY 

VALID ENTRY ? 

BR IF NOT 

: TRACK ADDRESS 

; "ENTER SECTOR ADDRESS' 


: STARTING ADDRESS OF INPUT ASCII STRING 
; CHECK THE NUMBER 

; ILLEGAL INPUT 

; TERMINATED WITH A ‘CR‘ 

;NO ENTRY ~ ‘CR ONLY 

VALID ENTRY ? 

:BR IF NOT 

;LOAD SECTOR ADDRESS 

SET ADDRESS FLAG 

; RETURN 


THIS ROUTINE IS USED TO CHECK IF AN ASCII CHARACTER IS A DIGIT 


;BETWEEN 0 AND 7 


. 
. 
* 
. 
. 
* 
. 
- 
. 


CK.OCT: 


1$: 
2$: 


MOV 
JSR 
RETURN1 


RETURN2 


#ADR,R1 
RO,CK.OCT 


(R1),#°0 
1$ 
(R1),#'°7 
1$ 


(R1),R2 
$ 


2 
(RO) + 
RO 


ADDRESS OF ASCII CHARACTER 

; CHECK THE CHARACTER 
CHARACTER IS IN R2 AS A 
sOCTAL DIGIT 

; CHARACTER IS NOT BETWEEN 0-7 


;LESS THAN ZERO? 
:YES -- BRANCH 
:GREATER THAN SEVEN? 
YES -- BRANCH 


:GET THE CHARACTER 
;STRIP AWAY THE ASCII 
;BYPASS RETURN ADJUST 
;ADJUST FOR RETURN 
;RETURN 


THIS ROUTINE WILL CHECK AN ASCII CHARACTER TO 
DETERMINE WHAT IT IS. 


SEQ 0110 





CZRPY-D 


, RP11- 
Pp 


CZRPYD.P11 


027122 
027124 
027126 
027130 
027132 
027134 


027136 


027234 


027236 
027244 


H 9 
E FUNCTIONAL LOGIC & R/W TEST MACY11 30A(1052) 22-APR-78 14:43 PAGE 112 
22-APR-78 14:42 TRAP TABLE SEQ 0111 


105711 
001002 
005720 
005201 
011000 
000200 


010346 


005003 
004037 


000200 


005015 
042526 


#ADR,R1 s;ADDRESS OF ASCII CHARACTER 
RO,CK.CHR ; CHECK CHARACTER 

ADR1 ; UNKNOWN CHARACTER 

ADR2 CARRIAGE RETURN * (R1)=ADR+1 


(R1) 7""CARRIAGE RETURN''? 

1$ NO -- BRANCH 

(RO) + ; CARRIAGE RETURN 

R1 ;MOVE POINTER TO NEXT CHARACTER 
(RO) ,RO UNKNOWN CHARACTER 

RO ; RETURN 


; THIS ROUTINE CHECKS AN ASCIZ STRING FOR LEGAL CHARACTERS 
;AND FOKMS AN OCTAL NUMBER IN R2 


#ADR,R1 ;ADDRESS OF ASCIZ STRING 

RO,CK.NUM ;GO FORM THE NUMBER 

ADR1 ; ILLEGAL CHARACTER IN THE INPUT STRING 
ADR2 3""CR''=-R2=NUMBER 

ADR3 7'CR' WAS FIRST ENTRY 


R3,-(SP) sSAVE R3 
R ;START NUMBER AT ZERO 
027072 RO,CK.OCT sOCTAL DIGIT? 
1$ ; YES--BRANCH 
027122 RO,CK.CHR : CHECK ONE CHARACTER 
: ILLEGAL CHARACTER 
CARRIAGE RETURN 
sMOVE TO NEXT CHARACTER 
3;FOR THE OCTAL NUMBER IN R3 
:DON'T LET IT GET TO BIG 


027072 RO,CK.OCT :1S THIS AN OCTAL DIGIT? 
1$ ;YES--MAKE IT PART OF THE NUMBER 
R3,R2 SAVE THE OCTAL NUMBER 
R3 START WITH ZERO INDEX 


027122 RO,CK.CHR ;CHECK ONE CHARACTER 
; ILLEGAL CHARACTER 
; CARRIAGE RETURN 
bata ONLY 


7 YES--SAVE THE OCTAL NUMBER 
;RESTORE R3 

PICKUP EXIT ADDRESS 

; RETURN 


-SBTTL TELETYPE MESSAGES 


042012 044522 DRSTAT: .ASCIZ <15><12><12>a@DRIVE STATUS:@<15><12><12> 
051440 040524 





on 


Se ee FUNCTIONAL 


027252 


027430 
027433 


027702 


22-APR-78 14:42 


052524 


052111 


035123 
020040 
047111 
020040 
043101 
020040 
044514 
051040 
050122 


044522 


005012 
020122 
052040 


052012 


047111 


LOGIC & R/w T 


005015 


047440 
000105 
052440 
000105 
047440 
042516 


030120 
031460 
042526 
047524 
051525 

000 
042524 
020107 


042040 
000040 


047520 
040506 
051505 


051125 


040527 
047503 


047111 
042116 
047520 
040506 
051505 


047522 
0 


020107 


EST 


ONLINE: 
UNSAFE: 
OFFLIN: 


RPO2: 
RPO3: 
DRVTST: 


NONE : 
COMMA: 
TSTING: 


. 
MACY11 30A(1052) 22-APR-78 14:43 PAGE 113 
TELETYPE MESSAGES SEQ 0112 


-ASCIZ 
-ASCIZ 
-ASCIZ 


eASCIZ 
-ASCIZ 
-ASCIZ 


-ASCIZ 
-ASCIZ 
-ASCIZ 


BLNKS2: . 
MSGI5SA: . 


MSG15B: . 


MSG15D: 


-ASCIZ 


-ASCIZ 


a ONLINE@ 
a UNSAFE@ 
a OFFLINE@ 


@ RPO2a 
@ RPO3a 
@DRIVE(S) TO BE USED @ 


aNONE 
<15><12><12>a@TESTING WITH DRIVE @ 


aa 
<15><12><12>a@POWER FAIL TEST@ 


<15><12><12>@TURN CPU POWER OF F AFTER THIS MESSAGE, WAIT@<15><12> 


@5 SECONDS, THEN TURN CPU POWER ON AGAIN@<15><12> 


<15><12>@END OF POWER FAIL TEST@<15><12> 


<15><12><12>@PROGRAM WILL LOOP, WAITING FOR DRIVE TO COME ONLINE@<15><12 





on 


CZRPY-D, RP11-E FUNCTIONAL LOGIC & R/W TEST 
22-APR-78 14:42 


CZRPYD.P11 
027710 


027740 
027743 


030312 
030317 


030362 


047506 


005015 


020122 
020105 
046517 
044514 

000 


005012 
040440 
042515 
052517 
041412 


052103 
046525 


020072 
005012 


054524 


051104 
047524 
020105 
042516 


042510 
044514 
052116 
044524 


047117 
040440 
042520 
053524 
044520 
031461 
045040 
047440 
020105 
020105 
046120 


051050 


052524 
047524 


042590 


TELETYPE MESSAGES 


MSGI6A: 


MSG16B: 


MSG17A: 


MSG17B: 
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-ASCII 


-ASCIZ 


-ASCIZ 


-ASCIZ 


SEQ 0113 


<15><12><12>@HEAD ALIGNMENT ROUTINE@ 


<15><12><12>@CONNECT A JUMPER BETWEEN PiWS J13M2 & J13C2 ON THE RP1I1E BA 


<15><12>@ (REFER TO THE APPLICABLE MAINTENANCE MANUAL FOR THE DRIVE SETU 


<15><12><12>a@TOGGLE SWITCH 7 FOR HEAD SELECTION@<15><12> 


<15><12>@ENTER HEAD ADDRESS (IN OCTAL): @ 


<15><12><12>@RP11E CONTROL PANEL SWITCH TEST@ 


<15><12>a@TYPE A 'CR' TO START TEST AFTER EACH SETUP@<15><12> 





Ci 
Ci 


CZRPY-D, RP11-E ante ta LOGIC & R/wW TEST 
RPYD.P11 22-APR-78 14:42 


030370 


031052 


040440 


041440 


023440 


042526 
047105 


041524 
047412 


052040 


051012 
052040 
046131 


051103 


021440 
041101 


044522 
020124 


042510 
020116 


042510 


020124 
044103 
020117 


051505 
042510 
047111 


kK 9 
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TELETYPE MESSAGES SEQ 0114 


MSG17C: 


MSG17D: . 


MSGI7E: . 


MSGI7F: . 


MSG17G: . 


MSG17H: 


MSG17I: 


MSG17J: 


-ASCIZ 


-ASCIZ 


-ASCII 


<15><12>aDISABLE DRIVE # @ 


<15><12>@ENABLE DRIVE # @ 


<15><12>@SET "READ ONLY’ ON DRIVE @ 


<15><12>@SET 'READ-WRITE' ON DRIVE @ 


<15><12>@SET "WRITE LOCKOUT’ AND CLEAR THE LOA SWITCHES@ 


<15><12>@0N THE RP11E CONTROL PANEL@ 


<15><12>a@SET THE FOLLOWING OCTAL VALUES IN THE CYLINDER LOA SWITCHES: @ 


<15><12>@SET SWITCHES TO @ 


<15><12>@RESET THE CYLINDER LOA SWITCHES@ 





Ci 
Ci 


pl le | FUNCTIONAL LOGIC & R/W TEST 


031060 


031320 
031322 


031523 


22-APR-78 14:42 


042504 


000012 
000057 


020122 


042510 
042412 


040515 


047105 


000 
044522 
047101 


000 
052116 


047514 
052111 


052105 


035123 


042116 
047503 
050040 
051440 
020110 


052524 
030520 
047117 
050040 
051440 
042510 
047040 
006514 


042524 
052123 
042502 
020122 
020105 
051105 
042526 


042507 


020064 


046511 


024514 
051105 


MSG17K: 


SLASH: 
ENTNM: 


DRVNM: 


DRIVE: 
CHNGPM: 


MXWRDS: 


ENTWC: 
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TELETYPE MESSAGES SEQ 0115 


-ASCII 


»ASCIZ 
eASCIZ 


-ASCIZ 


-ASCIZ 
eASCIZ 


-ASCIZ 


eASCIZ 


<15><12><12>a@SET THE FOLLOWING OCTAL VALUES IN THE DRIVE LOA SWITCHES: @ 


<15><12><12>@END OF CONROL PANEL SWITCH TEST@ 


<15><12>@RETURN RP11E CONTROL PANEL SWITCHES TO NORMAL@<15><12> 


a/a 
<15><12>@ENTER TEST NUMBER: @ 
@ENTER DRIVE NUMBER: @ 


@DRIVE @ 
@CHANGE PARAMETERS FOR TEST 14 ? @ 


@MAXIMUM WORD COUNT FOR TEST 14 (IN OCTAL): @ 


@ENTER NEW WORD COUNT (IN OCTAL): @ 





C2 
CZ 


CZRPY-D, RP11-E o~U-y; LOGIC & R/W TEST 
22-APR-78 14:42 


047040 


CZRPYD.P11 
031530 


032154 


032162 
032170 


051505 


050122 
020075 


053505 


030440 
020105 


020064 
040450 


051523 
052116 


035123 
042101 
000 


053440 


035064 
ra tee 


020077 
051440 
5 


042511 
047040 


020072 
051105 


000040 
020122 
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TELETYPE MESSAGES SEQ 0116 


CHNGPT: 


CHNGAD: 


ONEPAT: 


ENTCYL: . 


ENTRK: 


ENTSEC: . 


MRPADR: 


~ SBTTL 


-ASCIZ @ENTER PATTERN SELECTION CODE FOR TEST 14: @ 


-ASCIZ @USE A SPECIFIC DISK ADDRESS FOR TEST 14 ? @ 


ASCII @ (A SINGLE DATA PATTERN MUST HAVE BEEN SPECIFIED@<15><12> 


@ IF NOT, PATTERN 0 (ALL ZEROS) WILL BE USED)a<15><12> 


@ENTER CYLINDER ADDRESS: @ 


@ENTER TRACK ADDRESS: @ 


@ENTER SECTOR ADDRESS: @ 


-ASCIZ @RPADR 


ERROR MESSAGES 





C2 
CZ 


CZRPY-D, RP11-E en ee at A ee & R/w TEST 


CZRPYD.P11 


032656 


22-APR-78 1 


030520 


046515 
042514 


041505 


020105 
053440 


020061 
052047 


047101 
051101 


047440 
044524 


051117 
044524 


041517 


020122 
047111 
051523 
020116 
046114 
047524 


043117 
051117 


EM1: 


EM2: 


EM3: 


EM4: 


EMS: 


EM6: 


EM7: 


EM11: 
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ERROR MESSAGES 


eASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


SEQ 0117 


@RP11 DIDN'T RESPOND TO ADDRESSING@ 


@CAN'T START READ COMMAND@ 


‘ 


@'CLEAR' COMMAND DIDN'T TERMINATE DATA TRANSFER OPERATION@ 


@ERROR WRITING TEST SECTOR(S)a@ 


@WRITE CHECK ERROR CHECKING TEST SECTOR(S)@ 


@EXPECTED ‘WCE’ DIDN'T OCCUR@ 


@ERROR WRITING LESS THAN A FULL SECTOR@ 


@ONE OF 2 WORDS WRITTEN IN THE PARTIAL WRITE DIDN'T COMPARE@ 


CZ 
CZ 


CZRPY-D, RP11-E FUNCTIONAL LOGIC & R/W TEST 
22-APR-78 14:42 


CZRPYD.P11 


032663 
0 


033342 


116 
051105 


047440 


047117 


051127 
050117 


047111 
052101 


050122 
041525 


041505 
052116 


020116 


055055 


040510 
055040 


052111 
020047 
7? 


044516 
052040 


040520 
023522 


040503 
020101 


047524 
047105 


040520 


ERROR MESSAGES 


EM12: 


EM13: 


B 10 
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«ASCII 


-ASCII 


@NON-ZERO DATA IN PART OF SECTOR WHICH SHOULD HAVE@<15><12> 


@BEEN ZERO FILLED DURING PARTIAL WRITE@ 


@"EOP’ DIDN'T SET DURING A 2 SECTOR WRITE BEGINNING@ 


<15><12>@AT THE LAST SECTOR OF THE PACKa 


@"ERR' DIDN'T SET WITH "EOP’@ 


@*EOP’ DIDN'T CLEAR RPCA@ 


@SUCA NOT CORRECT AFTER ‘EOP'@ 


@ERROR READING TEST SECTOR@ 


@CONTENTS OF FIRST SECTOR ON PACK CHANGED AF TER@<15><12> 


SEQ 0118 
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CZRPYD.P11 22-APR-78 14:42 ERROR MESSAGES SEQ 0119 


033350 045503 041440 040510 
040440 
005015 
047111 .ASCIZ @FORCING ‘EOP' DURING WRITE@ 
050117 
044522 ee SAN ios . 
oo): re D9 det, SE 


og 4 EM21: -ASCII @'PROG' ERROR DIDN'T SET WHEN READ COMMAND ISSUED@ 


051523 042525 
053412 044510 <15><12>a@WHILE CONTROLLER BUSY@ 
041440 047117 
046117 042514 
052502 054523 


051105 023522 EM22: .ASCIZ @°ERR' DIDN'T SET WITH ‘PROG'@ 


EM23: eASCIZ @ERROR ATTEMPTING TO MISFORMAT SECTOR 08 


051117 
051117 : @ERROR VERIFYING THE MISFORMATTED TEST HEADER@ 


040505 
051117 : @MISFORMATTED TEST HEADER IS NOT CORRECT@ 


051122 
020047 : @'HNF’ DIDN'T SET WHEN SEARCHING FOR MISFORMATTED SECTOR@ 


034032 044515 043123 051117 





CZRPY-D, RP11-E FUNCTIONAL ‘i & R/wW TEST 


CZRPYD.P11 
034040 


034514 


22-APR-78 1 
040515 


042101 


052124 
041505 


045523 


047110 
042510 


047110 
051122 


044522 
052101 


041440 


042105 
047524 


020047 
042523 
044124 
023506 
020047 
052047 
053440 
044047 
020047 
042523 
044124 
023506 


051117 


044522 
051117 


042526 
020101 


046517 


EM27: 
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ERROR MESSAGES 


-ASCIZ 


@'DSK* NOT SET WITH 'HNF‘@ 


@'HE' DIDN'T SET WITH ‘HNF'@ 


@"ERR® NOT SET WITH ‘HNF'@ 


@ERROR WHILE RESTORING MISFORMATTED TEST HEADER@ 


@CONTROLLER DIDN'T BECOME BUSY WHEN READ COMMAND@ 


<15><12>@ISSUED TO SEEKING URIVE@ 


@ERROR DURING READ COMMAND WHICH WAS ISSUED TO SEEKING DRIVE@ 


@DATA INCORRECT FROM HEADER READ COMMAND ISSUED TO A SEEKING DRIVE@ 


SEQ 0120 
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CZRPYD.P11 
034522 


035200 


22-APR-78 14:42 


040515 


052103 


042116 


044522 
054116 


051505 
023505 


041501 
047522 


042511 


047523 
020122 
051117 


044440 
020104 
051440 
043516 
042526 


042515 
047104 
052105 
020116 
044524 
030066 
042101 
042523 


042040 
020124 
044527 
054116 


020047 


020113 
020122 


041505 
051117 


051122 


020122 
047111 
052103 
042104 
044440 
040524 
042114 


023524 
042523 
040440 


ERROR MESSAGE SEQ 0121 


@'NXME* DIDN'T SET WHEN LOCATION 760000 ADDRESSED@ 


@'HE' DION'T SET WITH 'NXME'@ 


~~ 


@'ERR’ DIDN7T SET WITH "NXME‘@ 


@ERROR FORMATTING TRACK 0@ 


@ERROR READING THE HEADER FROM THE TEST SECTOR@ 


@SECTOR FIELD FROM HEADER IS NOT CORRECT@ 


@ERROR WRITING SECTOR ADDRESS IN DATA FIELD@ 


@'SOT* OR SECTOR ADDRESS REIGSTER IS NOT CORRECT@ 





CZRPY-D, RP11-E eee tt Bee & R/wW TEST 


CZRPYD.P11 
035206 


035672 


22-APR-78 1 
042104 


041517 


042522 
044505 
020122 
052117 
042522 


052101 


044124 
040522 


033467 


054105 
052105 
051105 
051117 
042101 
052122 
052101 
030440 


051523 
051507 
051511 
041440 
052103 


020101 
0 


006505 
045503 


042510 
051117 
5 


044524 


041517 
033467 


023461 
040440 
031040 
020104 
051440 
047111 
046040 
033467 


ERROR MESSAGES 


-ASCIZ 


ASCII 


eASCIZ 


«ASCII 


-ASCIZ 


eASCIZ 


F 10 
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@DATA READ FROM THE SECTOR IS NOT CORRECT@ 


@SECTOR CONTENTS WRONG, DATA SHOULD BE THE@<15><12> 


@TRACK NUMBER OF THE CURRENTLY SELECTED HEAD@ 


@ERROR AFTER 2 WORD READ STARTING AT LOC 177776a 


@'MEXO' DIDN'T SET AFTER 2 WORD READ STARTING@<15><12> 


@AT LOC 177776a 


@a'MEX1" SET AFTER 2 WORD READ STARTING AT LOC 177776a 


SEQ 0122 
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CZRPYD.P11 22-APR-78 14:42 ERROR MESSAGES SEQ 0123 


035700 033467 000066 


Sooree EMS3: «ASCII @CONTENTS OF LOC 200000 WRONG AFTER 2 WORD READ@<15><12> 


@STARTING AT LOC 177776a 


@ERROR AFTER 2 WORD READ STARTING AT LOC 377776a 


@"MEXO" DION'T CLEAR AFTER 2 WORD STARTING AT LOC 377776a 


033467 033467 
054105 023461 : ‘ @a'MEX1" DIDN'T SET AFTER 2 WORD READ STARTING AT LOC 377776a 


@CONTENTS OF LOC 400000 WRONG AFTER 2 WORD READ@<15><12> 


006504 
052122 ‘ @STARTING AT LOCATION 377776a 


000 
036371 051122 051117 -ASCII @ERROR RETURNING SECTOR TO PDP-11 MODE USING Aa@<15><12> 





CZRPY-D, RP11-E FUNCTIONAL LOGIC & R/W TEST 


CZRFYD.P11 


036376 


037066 


22-APR-78 14:42 


051040 


044124 
042526 


052105 


044522 
051122 


046102 


052523 
047516 
020124 
042040 
042440 


051125 
051440 


042524 
051117 
4 


043516 
042040 


023514 
053440 
051104 
044504 
042105 


046117 
020124 
044527 
044522 
040516 


EM61: 


EM62: 


EM63: 


EM64: 


EM65: 


EM66: 
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ERROR MESSAGES 


eASCIZ 


-ASCIZ 


-ASCIZ 


ASCII 


-ASCIZ 


-ASCII 


eASCIZ 


-ASCIZ 


-ASCIZ 


@2 WORD WRITE@ 


@ERROR WRITING TEST SECTOR(S)@ 


@ERROR READING TEST SECTOR(S)a@ 


@DRIVE DION*T RETURN TO CYL 0 FROM THE MAXIMUM@<15><12> 


@CYL ON CONTROLLER POWER FAIL@ 


@CONTENTS OF MEMORY CHANGED DURING POWER@<15><12> 


@FAIL WHILE READING THE DISKa 


@'SUOL’ SET WITH DRIVE DISABLED@ 


@'SUOL' NOT SET WITH DRIVE ENABLED@ 


SEQ 0124 





CZRPY-D, RP11-E ane at Be ee & R/wW TEST 


CZRPYD.P11 
037074 


037566 


22-APR-78 1 


046102 
047 


044527 


042105 


040517 
052523 


044124 


000 
050127 
020124 
044527 
044522 
052105 
051047 
047117 


023520 
053440 
051104 
042523 
023440 
053457 
000047 
023520 
053440 
050122 
051127 
047514 
023524 
020054 
042116 


020123 


051447 
050127 


042040 


ERROR MESSAGES 


EM67: .ASCIZ 


-ASCIZ 


-ASCII 


MACY11 30A(1052) 


a'SUWP" NOT 


a'SUWP" SET 


a'SUWP’ SET 


@LOA’S = 0, 


a'SUWP* SET 


a*SUWP* 


a" SUWP* 


1 10 
22-APR-78 14:43 PAGE 126 


SEQ 0125 


SET WITH DRIVE SET TO ‘READ ONLY'@ 


WITH DRIVE SET TO ‘READ/WRITE’@ 


WITH RP11 "WRITE LOCKOUT’ SET, CYLINDER@<15><12> 


AND RPCA = 0@ 


WITH RPCA = 2 & CYL LOA’S = 0O@ 


SET; RPCA = VALUE IN CYL LOA'S@ 


WITH RPCA ONE GREATER THAN CYL LOA VALUE@ 


WITH DRIVE LOA SWITCHES EQUAL TO SELECTED DRIVE@ 





mMmnoocego moO 
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037574 044522 042526 046040 


-ASCIZ @DRIVE HAS GOWE OFFLINE@ 


-ASCIZ @DRIVE IS UNSAFE@ 


-ASCIZ @DRIVE TIMED OUTa@ 


-ASCIZ @CONTROLLER TIMED OUT@ 
020104 
041440 bs @DATA COMPARE ERROR@ 
042522 
051122 051117 


052101 020101 . ss @DATA COMPARE ERROR (MEMORY MANAGEMENT ENABLED) @ 


@'ERR® DIDN'T SET WITH ‘WCE'@ 


053447 
042040 t @'HE* DIDN'T SET WITH "PROG'@ 
020124 
044527 
051120 


020105 a @DRIVE UNSAFE AFTER POWER FAIL@ 


a'SUWP* NOT SET WITH DRIVE LOA SWITCHES GREATER THAN SELECTED DRIVE@ 


040264 052101 051105 052040 





K 10 
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CZRPYD.P11 22-APR-78 14:42 
040272 040510 020116 
040300 052103 


040306 044522 
040314 0 


040315 040520 
051505 


053440 


052123 
051105 
040734 041520 020040 


ERROR MESSAGE 
042523 
042105 
042526 
;"DH" MESSAGE LINES 
051104 DH: -ASCIZ @RPADRA@ 


020124 Dk: eASCIZ @TEST # ERR PC 


-ASCIZ 


044523 
020124 : ° @TEST # ERR PC 


-ASCIZ 


-ASCIZ @TEST # ERR PC 


051117 


021440 -ASCIZ @TEST # ERR PC 
020122 
051104 


RPDS RPER RPCS RPWCa 


RPM1 SUCA 


PATRN # RPDS RPER RPCS@ 


RPDA RPM1 SUCA SILO@ 


EXPT'D 1ST WORD 2ND WORD@ 


EXPT'D RECV'D LOCN@ 


SEQ 0127 
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CZRPYD.P11 22-APR-78 14:42 ERROR MESSAGES SEQ 0128 


040742 020126 020043 020040 


047514 
estas -ASCIZ @TEST # ERR PC DRV # RPER RPCS@ 


051040 
020040 -ASCII EXPT'D ACTUAL@<15><12> 
020040 
020040 
020040 
042047 
052524 


021440 ° @TEST # ERR PC DRV # SUCA@ 


052523 040503 
051505 ory iss -ASCIZ @TEST # ERR PC DRV # EXPT'D RECV'DA 


041505 


051105 -ASCIZ @HEADER CONTENTS@ 
042524 


020040 -ASCII EXPT'D ACTUAL@<15><12> 


052524 
021440 ° @TEST # ERR PC DRV # SECTOR SECTORA@ 


052103 
pvqah tt -ASCIZ a@RPDS RPER RPCS RPBA RPCA RPDA@ 


041424 051040 053520 020103 





mM 10 
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CZRPYD.P11 22-APR-78 14:42 ERROR MESSAGES 


6618 041432 020040 051040 041120 
6619 041440 020101 020040 051040 


SEQ 0129 


1 
6622 041462 042510 042101 051105 DH43B: .ASCIZ @HEADER CONTENTS@ 
6623 041470 041440 047117 042524 


6625 041502 020040 020040 asoses DH45: .ASCII @ EXPT'D ‘SOT’ SECTOR@<15><12> 


ry 041562 042524 052123 021440 -ASCIZ @TEST # ERR PC DRV # VALUE COUNTER ADDR@ 


6639 041626 051105 oat 042101 
6641 041637 122 042120 rests DH45A: .ASCIZ @RPDS RPER RPCS RPDA@ 


6646 041674 020040 020040 acoeee DH46: .ASCII @ EXPT'D RECV*D&<15><12> 


6654 041754 042524 052123 021440 eASCIZ @TEST # ERR PC DRV # SECTOR DATA DATA@ 


6660 042020 020040 we 040504 

6662 042031 124 051505 020124 DH47: .ASCIZ @TEST # ERR PC DRV # EXPT'D RECV'DA 
6663 042036 020043 042440 051122 

6666 042060 042440 050130 023524 

6667 042066 020104 051040 041505 

6669 042100 050122 051504 020040 DH47A: .ASCIZ @RPDS RPER RPCS RPCA RPDA@ 
6670 042106 020040 050122 051105 


6673 042130 050122 040503 020040 
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CZRPYD.P11 22-APR-78 14:42 ERROR MESSAGES SEQ 0130 


vee 050122 040504 
051505 Seyise DH51: .ASCIZ @TEST # ERR PC DRV # RPDS RPWC RPBA@ 


051040 041120 
052123 021440 >: .ASCIZ @TEST # ERR PC DRV # RPDS 


-ASCIZ @TEST # ERR PC DRV # ~ RPDS 


-ASCIZ) @TEST # ERR PC DRV # SEC STRT CYL SEC PATTERN@ 


052124 

020040 DH102A: .ASCII BAD@<15><12> 
042117 

040502 

020122 -ASCIZ @ADDR DATAa 

052101 

042040 


031522 : .ASCIZ @KIPAR3 KIPARG KIPARS KIPDR3 KIPDR4 KIPDRS@ 


044513 042120 





CZRPY-D, RPII-E ae an Be & R/wW TEST 


CZRPYD.P11 


042632 


043034 


043036 


043236 


22-APR-78 1 


032122 


041440 
000072 


001324 
001160 


001334 


020040 
032522 


052517 


001116 
001336 


001346 
001354 
001116 
001334 


001344 
001352 


001116 
043656 


001336 


044513 
000 


041040 


020040 
040524 
040504 


046101 


020122 
051124 


020131 
051523 

012 
054522 
052116 


001176 
001340 


001350 
001356 
001176 
001336 


001346 
001354 


001176 
043660 


001176 
001176 


043662 
001176 


001340 


DH103A: 


DH105: 


DH110: 


DH111: 


- EVEN 


B 11 
MACY11 30A(1052) 22-APR-78 14:43 PAGE 132 
ERROR MESSAGES 


-ASCII 


-ASCIZ 


eASCIZ 


-ASCIZ 


-ASCII 


eASCIZ 


;"DT* WORDS 


DTI: 
DT2: 


DTS: 


DT11: 
DT12: 
DT14: 
DT16: 
DT25: 


D143: 


«WORD 
- WORD 
. WORD 
- WORD 


« WORD 


. WORD 
« WORD 
- WORD 
- WORD 
- WORD 


. WORD 
- WORD 


. WORD 


@VIRTUAL GOOD BADa<15><12> 
@ADDR DATA DATA@ 
@TOTAL COMPARE ERRORS:@ 


@UNSCESSFUL AFTER 3 RETRIES@ 


@RETRY SUCESSFUL@<15><12> 


@RETRY COUNT:@ 


RPADR 
STMPO,SERRPC ,CHKDRV, SRPDS,SRPER,$RPCS, SRPWC 


SRPBA,SRPCA,SRPDA,SRPM1 ,SSUCA,$SILO 
STMPO,SERRPC ,CHKDRV,PATNUM, $RPDS,SRPER,$RPCS 


SRPWC,SRPBA,SRPCA,SRPDA,SRPM1 ,SSUCA,S$SILO 


STMPO,SERRPC,CHKDRV,SGDDAT BUFFER ,.BUFFER+2 
STMPO,SERRPC ,CHKDRV,$GDDAT , SBDDAT , SBDADR 
STMPO, SERRPC ,CHKDRV, SRPDS,SRPER,SRPCS 
STMPO,SERRPC ,CHKDRV,MAXCYL,SSUCA 
STMPO,SERRPC ,CHKDRV,$GDDAT,SBDDAT 


BUFFER ,BUFFER+2 ,BUFFER+4 
STMPO,SERRPC ,CHKDRV, SGDDAT ,BUFFER+4 


SRPDS ,SRPER, SRPCS,SRPWC,SRPBA,SRPCA,SRPDA 


SEQ 0131 





CZRPY-D, aS FUNCTIONAL LOGIC & R/W TEST 
ER 


CZRPYD.P 


043244 


043514 


043516 
043520 
043521 


043522 
043524 
043525 
043526 
043530 
043531 


043532 


043540 
043541 


043542 


22-APR-78 14:42 


001342 


001314 


000001 
001 
000 

000002 
0 


000002 
007 
010 

040552 
007 
000 

000001 


001344 
043660 


001116 
001126 


001116 


001116 
001336 


001116 
001336 


001116 


001346 


043662 
001176 
001122 


~ 001336 001340 


001176 
001126 
001176 


001340 


001176 
001340 


001176 
001340 


001176 
001340 


001176 
025426 


001126 
001176 
025426 


172352 
172312 
001126 


DT45: 


D146: 


D147: 


DT51: 


D163: 


DT71: 


DT102: 


DT103: 


DT104: 
DT105: 
DT111: 


C 11 
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ROR MESSAGES 


. WORD 
- WORD 


.WORD__ $RPDS ,SRPER,SRPCS,$RPDA_ 


- WORD 
- WORD 
. WORD 
. WORD 


- WORD 


- WORD 


«WORD 


- WORD 
- WORD 


«WORD 
- WORD 


«WORD 
- WORD 


;"DF* BLOCKS 


DF1: 


DF2: 


DFS: 


DF11: 


- WORD 
-BYTE 
-BYTE 


. WORD 
-BYTE 
-BYTE 
- WORD 
«BYTE 
-BYTE 


- WORD 
-BYTE 
«WORD 
-BYTE 
-BYTE 


- WORD 


BUFFER ,BUFFER+2 ,BUFFER+4 
STMPO,SERRPC ,CHKDRV,$GDDAT,$BDDAT,$BDADR 


STMPO,SERRPC ,CHKDRV,$GDADR,S$GDDAT , SBDDAT 
STMPO,SERRPC,CHKDRV,$GDDAT ,BUFFER 

SRPDS ,SRPER,SRPCS,SRPCA,SRPDA 
STMPO,SERRPC,CHKDRV,SRPDS ,SRPER,SRPCS,$RPWC,$RPBA 


STMPO,SERRPC ,CHKDRV,SRPDS ,SRPER,$RPCS,$SUCA 
STMPO,SERRPC,CHKDRV, $RPDS,,SRPER,S$RPCS,S$RPCA 
STMPO,SERRPC,CHKORV,CMBUF ,CMCYL,CMTRK,CMSEC,PATNUM 


SBDADR ,SGDDAT , SBDDAT 
STMPO,SERRPC,CHKDRV,CMBUF ,CMCYL,CMTRK,CMSEC ,PATNUM 


KIPAR3,KIPAR4 ,KIPARS .KIPDR3,KIPDR4,KIPDRS 
7 ‘emaamaaes ramartat 


ERCT 
RETRY 


—- ONO wr oOCcVvu ONrY OoO--— 


SEQ 0132 
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043544 006 -BYTE 
043545 000 -BYTE 


043546 000002 DF25:  . WORD 
005 -BYTE 

-BYTE 

. WORD 

-BYTE 

043555 .BYTE 


043556 : WORD 
006 -BYTE 

-BYTE 

- WORD 

-BYTE 

-BYTE 

- WORD 

-BYTE 

043571 -BYTE 


043572 : . WORD 
043574 0 .BYTE 
043575 0 -BYTE 
043576 . WORD 
043600 00 .BYTE 
043601 .BYTE 


043602 DF47:  . WORD 
05 -BYTE 

-BYTE 

- WORD 

-BYTE 

-BYTE 


043612 000001 DF51: WORD 
043614 010 -BYTE 
043615 -BYTE 


043616 000001 DF53:  .WORD 
043620 005 -BYTE 
043621 000 -BYTE 


043622 000001 DF63:  . WORD 
043624 007 -BYTE 
043625 000 -BYTE 


043626 000002 DF102: WORD 

010 -BYTE 
- WORD 
-BYTE 
-BYTE 


000003 DF103: .WORD 
010 -BYTE 
043641 200 -BYTE 


x= 
7 
~N 
> 


6 
0 
2 
5 
0 
D 
3 
0 
3 
6 
0 
D 
5 
0 
D 
3 
0 
2 
6 
0 
D 
4 
0 
2 
5 
0 
D 
5 
0 


mO@Ow OOUN@Nnr on Ou— oo— 
. O« 2 
oO 





CZRP 
043642 


043651 


043652 
043654 
043655 


043656 
043664 
043670 
043676 
043704 
043712 
043720 
043726 
043734 
043742 


22-APR-78 14:4 


042566 
006 


000 
042645 
000 
000 
000001 


003 
000 


043656 
005015 


000001 


041412 


005012 


toon se FUNCTIONAL A ee & R/W TEST 


051132 


030461 
047125 
040516 
044507 
042522 
044522 
051505 

000 


«EVEN 


BUFFER=. 


TITLE: 


E 11 
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ERROR MESSAGES 


«WORD 
-BYTE 
-BYTE 
«WORD 
-BYTE 
-BYTE 


«WORD 


-BYTE 
-BYTE 


-ASCII 
-ASCIZ 


DH103 
6 


0 
DH103A 
0 
0 


1 
b) 
0 


BUFFER STARTS HERE 
<15><12><12>aCZRPY-Da 
<15><12>3RP11-E FUNCTIONAL LOGIC & READ/WRITE TEST@<15><12><12> 


SEQ 0134 





CZRPY-D, RP11-E FUNCTIONAL LOGIC & R/W T 
CZRPYD.P11 : 


001224 
020000 
001360 
001400 


000001 


043656 


001216 
001200 


001176 


031640 


025654 


22-APR-78 14:42 


EST MACY11 30A(1052) 
CROSS REFERENCE TABLE -- 


3498+ 


F 11 
22-APR-78 14:43 PAGE 137 
USER SYMBOLS 


5200+ 


4921 
2703 
5473 


5201* 


5068 
2753 


5202 


5494 
2848 


5205 


5512 
2909 


2856* 


3800 
3934 
6793 


5207* 


2976 


5208* 


3094 


3170 


SEQ 0135 


3300 
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3391 3527 3544 3569 3631 365C 3756 3799 3814 


025430 
5277* 5293 53144 
6812 


53164 6808 


6808 
2367* 


023664 


000015 
000200 
024614 
177570 
043516 
043626 
043636 
043652 
043542 


043522 


043546 

043556 

043572 

043602 

043532 68344 

043612 6876# 

043616 

043622 2087 68844 
040315 

042414 

042514 

042566 

042645 

042717 

040637 

042745 

043000 

040720 

040775 1822 1829 1873 1880 2035 2042 2049 2056 


041052 
040325 1757 1787 -«S «1808 ~=Ss«1836= «41844 s«1851—Ss«(1866 
euaeee 2099 2106 = 2118. Ss 2120218365158 


041167 





CZRPY-D, RP11-E FUNCTIONAL LOGIC & R/W TEST 
22-APR-78 14:42 


CZRPYD.P11 


041236 
041256 
041375 
041462 
041502 
041637 
041674 
042031 
042100 
040465 
040552 
042145 
042242 
042327 
001142 


000174 
002500 


031377 


001370 


027345 
001504 
177570 
043036 
043422 
043450 
043504 
043512 
043126 
043514 
043142 
043156 


043172 
043040 


043204 


043322 


CROSS REFERENCE TABLE -- USER SYMBOLS 


65324 
66764 


66968 
2458+ 
3728+ 


2415* 
2641* 
2858+ 
3009+ 
3219* 
3545* 
4899 
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1874 


1788 
2107 


2036 


1837 
2121 


2043 


1845 
2184 


2050 


1852 
6761# 


SEQ 0137 


2057 


1867 
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CZRPYD.P11 22-APR-78 14:42 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0138 


043072 2006 2013 6766# 
1976 1983 67998 


2079 2086 68054 
2224% 


19 
26 
33 
54 
61 
12 
82 
89 
19 
27 
35 
42 
49 


036162 
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036255 


100000 2645 2664 2682 2737 2780 2789 
3068 3119 3133 3202 3223 3250 


000004 4638* 4737 4738 4742e 4747% 47598 
5446* 5448* 5450* 
005306 


005722 
011530 
012060 
012712 
013572 
014616 


001202 





CZRPY-D, RP11-E FUNCTIONAL LOGIC & R/W TEST 
22-APR-78 14:42 


CZRPYD.P11 
025412 
026150 
024502 


eerrete 


104406 


001240 
001316 
001210 
001230 


001264 


027617 


53114 


57124 


CROSS REFERENCE TABLE -- USER SYMBOLS 


3997 


2997 
3494* 


5218* 


5006* 
5340* 


4826 4827 


3009 
5202 


3518 


5481* 
5390+ 
5403+ 
5413* 


5306 
3332 


4828 


3628* 


5484* 
5391* 
5404* 
5416* 


5324 


K 11 
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4829 


4830 


4832 


3641 


5394* 
5410 
5536 


4834 


3679 


5395* 


SEQ 0140 


4835 


5207 


5396* 





L 11 
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CZRPYD.P11 22-APR-78 14:42 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0141 


MSG15D 027652 
SG16A 
$G16B 
SGI7A 
$G17B 
SG17C 
$G17D 


5827# 


3561 5092 5585* 
001244 3563* 3564* 5064* 5065* 5070* 5071* 5094 5096 5098 5100 


001204 2512 2514* 2550* 2637* 2651* 3520*  3560* 5078* 5079 5081* 
eocone 6766 6808 6812 


5548+ 


2287* 3705+ 


000024 





M11 
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CZRPYD.P11 22-APR-78 14:42 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0142 
RDCHR = 104410 4556 4835# 
RDERR 001274 12554 
RDLIN = 104411 3741 3797 3812 3830 3845 3859 3887 3922 3942 4836# 5438 5464 5486 
5519 5530 5542 5550 5556 5566 5576 
ROSEK = 000005 1153# 2423 2575 2678 2722 2726 2786 2929 3010 3055 3063 3129 3219 
3246 3352 3572 3651 
ROSW 016056 3818 38244 
RDY = 000200 11754 2425 2433 2879 5038 5045 
READ = 000017 1158# 2876 
RESLDR 023452 2264 3598 3692 4989# 
RESREG= 104413 4136 4838# 4860 4904 5007 5138 5153 5166 5185 5305 
RESTAR 004762 23724 4009 
ESVEC= 000010 10874 
RETRY 001314 1267# 3565* 3578 3583* 3584 3588 6819 
RPADR 001324 1274# 2386 2413 2460 2539 2628 2712 2762 2857 2918 2985 3103 3179 
3309 3478 3623 3709 3730 3782 4853 4949 5432 5444* 5447 6760 
RPBA = 000010 1140# 2874* 4892* 4954 
RPCA = 000012 1141# 3861* 3867* 3889* 3896* 3914* 4893* 4955 
RPCS = 000004 11384 2425 2430" 24351% 2726* 2876* 3670* 3800* 3815* 3833% 3848% 3915  3949% 
4854* 4855* 4865* 4885* 4899 4900*  4903* 4952 5038 5045 5370* 5374* 
RPDA = 000014 11424 3017 4894* 4956 
RPDS = 000000 1136# 4866 4870 4872 4874 4877 4950 5012 5019 
RPER = 000002 1137# 84951 
RPINIT 022566 2289 3658 48444 5480 
RPM1 == 000016 1143# 4957 
RPM2 == 000020 11444 
RPMS == 000022 11454 
PPRIO 001332 12764 4847 
PVEC 001326 1275#@ 4845 
PWC = 000006 11394 2873* 4891* 4953 
P02 027327 2315 5675# 
RPO3 027336 2317 5677# 
RP11 022770 2389 2424 2474 2483 2502 2553 2565 2576 2642 2657 2679 2723 2777 


RSTRT1 004740 23684 2377 


RSTRT2 004752 2370 2374 

RSTRT3 004760 23714 

SAVREG= 104412 4078 4837# 4844 4884 4989 5129 5143 5158 5172 5215 

SAVRP 023240 2427 2432 2476 2485 2504 2555 2567 2578 2644 2659 2681 2727 2779 
2809 2832 2878 2884 2932 3001 3014 3051 3067 3118 3132 3201 3222 


3862 3868 3890 3898 3924 3944 4913 49484 5024 5050 
SCYL 001266 12524 2268* 3517 3558 5564+ 
SECNBR 024002 3513 3554 50634 
SEEK = 000011 1155# 2869 
SETBUF 024432 2469 2551 2562 2638 2652 3532 51728 
SILO = 000026 1147# 4959 
SIZMEM 025700 2265 53794 
SLASH 031322 5437 58644 
SRO = 177572 1106# 3216*  3266* 4748 4763* 4/70* 5261* 5308*  5330*  5337* 
SR1 = 177574 11074 
SR2 = 177576 11084 
R3 = 172516 11094 4760* 5257* 
SSEC 001272 1254# 2270* 3515 3556 5584+ 
STACK = 001100 991# 2219 2417 2464 2543 2632 2716 2766 2861 2922 2989 3111 3189 


N11 
CZRPY-D, RP11-E ty LOGIC & R/wW TEST MACY11 30A(1052) 22-APR-78 
22-APR-78 14:42 CROSS REFERENCE TABLE -- USER SYMBOLS 


3733 3786 
+ Fe 4930# 
2 3015* 3661*  3706* 4930 


CZRPYD.P11 


3953 4397 4480 


001140 


000176 
000001 
000001 


24178 
24648 
29898 2990 


14:43 PAGE 145 


3945 
3384 3482 3528 3533 
4052 4079 4400 4439 


SEG 0143 


3542 
4494 





CZRPY-D, RP11-E FUNCTIONAL LOGIC & R/W TEST 


CZRPYD.P11 


TEST11 
TEST12 
TEST13 
TEST14 
TESTIS 
TEST16 


011652 
012202 
013014 
014066 
014736 
015460 
015716 
006020 
006476 
007154 
007404 
010130 
010464 
001212 
043656 
000060 
000064 
000034 
000014 
027401 
001276 


005064 
005310 
010612 
011532 
012062 


104401 


017254 
104402 


22-APR-78 14:42 


31894 3190 


2530 
3773 


3304 
3388 


2619 2703 
5473* 5477+ 


B 12 
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CROSS REFERENCE TABLE == USER SYMBOLS 


2753 2848 


2909 


2976 


3094 


SEQ 0144 


3170 





